home *** CD-ROM | disk | FTP | other *** search
/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / maths / numbers / !Numbers / !Numbers (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1995-04-06  |  58.3 KB  |  3,112 lines
  1.  > <Numbers$Dir>.!Numbers 
  2.  Squished by Lofty's !Shrink vsn 1.01 on 06-Apr-95 
  3. 263874:
  4. $;" at line "+
  5. 263872
  6. 262380,-1,-1
  7. CF%=1<<10
  8. eD%=32768+fF%
  9. =eD%+CF%
  10. nA("<Obey$Dir>.",eD%)
  11. MA(200,"Numbers")
  12. _closedown%=
  13.     BG%=
  14. :ND%=
  15. :KD%=
  16. :qD%=
  17. :kC%=
  18. :sA%=
  19. :iB%=
  20. :FD%=
  21. :pD%=
  22. !zA%=
  23. :jA%=
  24. :PB%=0:UB%=0:uC%=0
  25. OF%=1001:q%=77:zE%=
  26. :fB%=
  27. YF%=OF%*q%
  28. A$(10),A%(13)
  29. ZA%YF%
  30. WB%=0:o$="":lC%=0
  31. fA%=0:y%=0
  32. D$="Numbers"
  33. G=64*1024
  34. 263873
  35. o(0,QD%))
  36. _closedown%
  37. E+"Res:"+
  38. E,-1)
  39. C("MTIBar"))
  40. C("Info"),"")
  41. q(AE%,1)
  42. 0+qE%=
  43. C("Help"),"_MenuSelect_Help")
  44. 1*j%=
  45. C("Quit"),"_MenuSelect_Quit")
  46. TA(AE%,"progInfo","_PreOpenInfo","")
  47. u("Numbers")
  48. 4+qE%=
  49. C("Help"),"_MenuSelect_Help")
  50. q(qE%,1)
  51. 6'hF%=
  52. Q(0,"Save","_MenuSelect_Save")
  53. H("input",x%)
  54. J(x%,-1,"_ClickSelect_Main")
  55. H("xfer_send",KB%)
  56. H("random",uA%)
  57. J(uA%,-1,"_ClickSelect_Rand")
  58. H("factors",VA%)
  59. H("fpane",qB%)
  60. s(VA%,qB%,2,0,0)
  61. J(qB%,-1,"_ClickSelect_Fact")
  62. H("Shareware",oC%)
  63. J(oC%,-1,"_ClickSelect_sw")
  64. H("facsum",qA%)
  65. H("fspane",TB%)
  66. s(qA%,TB%,2,0,0)
  67. J(TB%,-1,"_ClickSelect_facsum")
  68. f(qA%,-1,vE%,0,0,0)
  69. f(VA%,-1,vE%,0,0,0)
  70. y(-1,"!"+
  71. E,"",120,NF%,0,0,0)
  72. UA(-1,K,"iconbar")
  73. J(-1,K,"_ClickSelect_IconBar")
  74. F(oC%)
  75. _PreOpenInfo(c%)
  76. G(c%,0,
  77. C("progInfo0"),0)
  78. G(c%,1,
  79. C("progInfo1"),0)
  80. G(c%,2,
  81. C("progInfo2"),0)
  82. G(c%,3,
  83. C("progInfo3"),0)
  84. _PreOpen_Xfer(c%)
  85. k(x%)=0
  86. D$=""D$="Numbers"
  87. G(KB%,1,D$,0)
  88. gA(KB%,2,32*1024,4095,1,"_do_save")
  89. J(KB%,0,"_ClickSelect_XferOK")
  90. C(KB%)
  91. _PostOpen_Xfer(c%)
  92. k(x%)=
  93. k(KB%)
  94. _ClickSelect_IconBar(c%,lA%)
  95. C(oC%)
  96. F(x%)
  97. I(x%)
  98. _ClickSelect_sw(c%,lA%)
  99. C(oC%)
  100. _ClickSelect_XferOK(c%,lA%)
  101. B(c%,1)
  102. _do_save(D$)
  103. _ClickSelect_Main(c%,lA%)
  104. 5:KD%=
  105. 8:ND%=
  106. 11:qD%=
  107. 13:ID%=
  108. 14:kC%=
  109. :iB%=
  110. :kA%=
  111. :iB%=
  112. :sA%=
  113. :jA%=
  114. :kA%=
  115. :sA%=
  116. :jA%=
  117. 16:FD%=
  118. 17:pD%=
  119. :iB%=
  120. :sA%=
  121. :jA%=
  122. :zA%=
  123. :iB%=
  124. B(uA%,1,"")
  125. B(uA%,2,"")
  126. B(uA%,3,"")
  127. :kA%=
  128. D(x%,5,1)
  129. D(x%,8,1)
  130. D(x%,11,1)
  131. D(x%,13,1)
  132. D(x%,14,1)
  133. D(x%,16,1)
  134. D(x%,17,1)
  135. F(uA%)
  136. C(x%)
  137. I(uA%)
  138. C(x%)
  139. B(x%,1)
  140. B(x%,2)
  141. Z$="0"
  142. W$="0"
  143. Z$=""
  144. W$=""
  145. C(x%):RA%=
  146.     RA%=
  147.     zE%=
  148. C(x%)
  149. F(VA%)
  150. I(qB%)
  151.     iF%=
  152. C(x%)
  153. F(qA%)
  154. I(TB%)
  155. C(uA%)
  156. D(x%,5,0)
  157. D(x%,8,0)
  158. D(x%,11,0)
  159. D(x%,13,0)
  160. D(x%,14,0)
  161. D(x%,16,0)
  162. D(x%,17,0)
  163. _ClickSelect_Rand(c%,lA%)
  164. C(uA%)
  165. B(uA%,1)
  166. B(uA%,2)
  167. B(uA%,3)
  168. F(x%)
  169.     RA%=
  170. _ClickSelect_Fact(c%,lA%)
  171. B(qB%,1)<>""
  172. B(qB%,1)
  173.     OA%=0
  174. B(VA%,OA%)<>""
  175. B(VA%,OA%,"")
  176. OA%+=1
  177. OB(u$)
  178. B(qB%,1,"")
  179.     OA%=0
  180. B(VA%,OA%)<>""
  181. B(VA%,OA%,"")
  182. OA%+=1
  183. I(qB%)
  184. C(VA%)
  185. F(x%)
  186. I(x%)
  187. _ClickSelect_facsum(c%,lA%)
  188. B(TB%,5)<>""
  189. B(TB%,5)
  190.     OA%=0
  191. B(qA%,OA%)<>""
  192. B(qA%,OA%,"")
  193. OA%+=1
  194.     fB%=
  195. T(u$,0)
  196. B(TB%,5,"")
  197.     OA%=0
  198. B(qA%,OA%)<>""
  199. B(qA%,OA%,"")
  200. OA%+=1
  201. I(TB%)
  202. (fA%):lC%=y%:fB%=
  203. B(TB%,5)<>""
  204. T(o$,lC%)
  205. C(qA%)
  206. F(x%)
  207. I(x%)
  208. _MenuSelect_Quit(a%)
  209. _closedown%=
  210. _MenuSelect_Save(a%)
  211. _PreOpen_Xfer(KB%)
  212. F(KB%)
  213. _MenuSelect_Help(a%)
  214. E+".$")
  215. g(3.0)
  216. ("Filer_Run <Spectro$Dir>.!Help")
  217. ("Run <Spectro$Dir>.!Help")
  218. _do_save(D$)
  219. 8,10,D$,4095,,ZA%,ZA%+q%*WB%
  220. C(KB%)
  221. :PB%=
  222. (W$):UB%=
  223. jA%uC%=
  224. (bA$):IE%=
  225. (W$):FF%=
  226. (Z$)<
  227. <E$="The Upperlimit must be greater than the Lower limit"
  228. K(E$,0,"!Numbers","")
  229.     RA%=
  230. UB%-PB%>=1001
  231. "-E$="The maximum interval allowed is 1000"
  232. K(E$,0,"!Numbers","")
  233. $    RA%=
  234. UB%-PB%>=5001
  235. '-E$="The maximum interval allowed is 5000"
  236. K(E$,0,"!Numbers","")
  237. )    RA%=
  238. UB%-PB%>=20000
  239. ,>E$="The maximum interval allowed for Palindromes is 20000"
  240. K(E$,0,"!Numbers","")
  241. .    RA%=
  242. UB%-PB%>=40000
  243. 1CE$="The maximum interval allowed for Triangle numbers is 40000"
  244. K(E$,0,"!Numbers","")
  245. 3    RA%=
  246. uC%>1000
  247. 6=E$="The maximum number of Random numbers allowed is 1000"
  248. K(E$,0,"!Numbers","")
  249. 8    RA%=
  250. (uC%=0
  251. (W$)=0
  252. (Z$)=0):RA%=
  253. jA(PB%,UB%)
  254. jA(PB%,UB%)
  255. 263872
  256. TA%=ZA%
  257. i%=PB%
  258. WB%=(TA%-ZA%)
  259. 263874
  260. _PreOpen_Xfer(c%)
  261. k(KB%)
  262. OB(y$)
  263. CB%=ZA%
  264. Q&GA$="These are the factors of "+y$
  265. R$$CB%=GA$+
  266. (GA$)-1," ")+
  267. CB%+=q%
  268. EC%=1:QC%=2
  269. mA%<>0
  270. B(VA%,0,
  271. (EC%))
  272. mA%<>1
  273. mA%<>0
  274. B(VA%,1,
  275. (mA%))
  276. (EC%)+"  "+y$
  277. Y$$CB%=JA$+
  278. (JA$)-1," ")+
  279. CB%+=q%
  280. mA%=2
  281. B(VA%,1,
  282. (mA%))
  283. mA%<>1
  284. mA%<>0
  285. mA%<>2
  286. (mA%))
  287. A=mA%/I%
  288. B(VA%,QC%,
  289. (I%)):QC%+=1
  290. d($CB%=
  291. (I%)+
  292. (I%))-1," ")+
  293. CB%+=q%
  294. B(VA%,QC%,
  295. (I%))
  296. B(VA%,QC%+1,
  297. (A)):QC%+=2
  298. (I%)+"  "+
  299. j$$CB%=UA$+
  300. (UA$)-1," ")+
  301. CB%+=q%
  302. WB%=(CB%-ZA%)
  303. u($TA%=C$+B$+
  304. (C$+B$)-1," ")+
  305. ($TA%)>q%
  306. wEE$="Your Line is too long.  Don't try to do so much all at once."
  307. K(E$,0,"!Numbers","")
  308. y    RA%=
  309. TA%+=q%
  310. ~    B$=""
  311. J=i%^(1/3)
  312. (i%)=
  313. (i%))
  314. B$+="     square"
  315. (J+0.00001))<0.00001
  316. B$+="     cube"
  317. (i%))=
  318. (i%)))
  319. B$+="     quartic"
  320. sA%C$=
  321. (i%))
  322. R%=i%
  323. I%:Q%=i%
  324. Q%<>1
  325. i%<>1
  326. B$=B$+"     prime"
  327. i%<>1
  328. O:$TA%=C$+B$+
  329. (C$+B$)-1," ")+
  330. (10):TA%+=q%
  331. kA%C$=
  332. BA$=""
  333. A$(I%)=
  334. C$,I%,1)
  335. BA$=BA$+A$(I%)
  336. (BA$)
  337. i%=HE%
  338. (C$)>1
  339. B$=B$+"     palindrome"
  340. i%=HE%
  341. (C$)>1
  342. O:$TA%=C$+B$+
  343. (C$+B$)-1," ")+
  344. (10):TA%+=q%
  345. S%=0:P%=i%
  346. (i%))
  347. Q%=i%
  348. R%=i%
  349. Q%=I%
  350. S%=S%+Q%
  351. Q%<>I%
  352. S%=S%+Q%+I%
  353. S%+2=i%
  354. i%<>1B$+="     quasi-perfect"
  355. S%+1=i%
  356. i%<>1B$+="     perfect"
  357. S%+1>i%
  358. i%<>1B$+="     abundant"
  359. S%+1<i%
  360. i%<>1B$+="     deficient"
  361. i%=220B$+="     amicable with 284"
  362. i%=284B$+="     amicable with 220"
  363. i%=1184B$+="     amicable with 1210"
  364. i%=1210B$+="     amicable with 1184"
  365. i%=17296B$+="     amicable with 18416"
  366. i%=18416B$+="     amicable with 17296"
  367. i%=9363584B$+="     amicable with 9437056"
  368. i%=9437056B$+="     amicable with 9363584"
  369. i%=&27B2D0B0 B$+="     amicable with 696630544"
  370. i%=&2985BD10 B$+="     amicable with 666030256"
  371. A%(P%)=
  372. DA(P%)
  373. i%=A%(I%)B$+="     "+
  374. (I%)+"!"
  375. DA(TA%)
  376.     rD%=1
  377. rD%=rD%*I%
  378. zA%C$=
  379. C=(-1+
  380. (1+8*i%))/2
  381. B$+="     triangular"
  382. O:$TA%=C$+B$+
  383. (C$+B$)-1," ")+
  384. (10):TA%+=q%
  385. AC%=i%^2
  386. (AC%),hA%))
  387. !dC%=
  388. (AC%),
  389. (AC%))-hA%))
  390. EC%+dC%=i%B$+="      Kaprekar Number"
  391. i%=495
  392. i%=6174B$+="      Kaprekar Constant"
  393. (FF%-IE%+1)+IE%-1
  394. (vA%)
  395. "$TA%=C$+
  396. (C$)-1," ")+
  397. TA%+=q%
  398. T(C$,y%)
  399. iA%=ZA%:q%=77
  400. B(qA%,y%,C$)
  401.  $iA%=C$+
  402. (C$)," ")+
  403. iA%+=q%
  404. y%=y%+1
  405. fA%=1:sF%=
  406. (i%))
  407. vA%=i%
  408. AF%=i%
  409. AF%=0
  410. JC%=i%
  411. JC%<>I%
  412. fA%=fA%+JC%+I%
  413. fA%=fA%+I%
  414. jB%=27WB%=(iA%-ZA%)
  415. q%:o$=
  416. (fA%):lC%=y%:fB%=
  417. WB%=(iA%-ZA%)
  418. B(qA%,y%,
  419. (fA%))
  420. ($iA%=
  421. (fA%)+
  422. (fA%))," ")+
  423. iA%+=q%
  424. i%=fA%
  425. i%>=&29B92700
  426. (i%),y%+1)
  427.     y%+=1
  428. i%=vA%
  429. WB%=(iA%-ZA%)
  430. dA(C$,y%)
  431. 843649,g,G
  432. yA%,DG%,EC%,dC%
  433. 843660,yA%
  434. 843660,yA%
  435. 843660,yA%
  436. 843660,yA%
  437. 843660,yA%
  438. 843660,yA%
  439. 843660,yA%
  440. 843660,yA%
  441. 843660,yA%
  442. 843660,yA%
  443. 843685,XB%,C$
  444. 843658,dC%,2
  445. #jE%=0:EE%=0:r$="":NA$="":IA$=""
  446. 843658,D%,1
  447. 843692,XB%,PD%
  448. 843693,PD%,dC%,AC%
  449. 843683,AC%
  450. IA$,r$
  451. IA$=C$
  452. 843683,PD%
  453. NA$,r$
  454. (NA$)
  455. 263872
  456.     wE%=0
  457.     I%+=1
  458. eE%=dF%-I%
  459. eE%=0
  460. 843674,XB%,I%
  461. eB%=0
  462. 843673,XB%,I%,JC%
  463. 843670,D%,I%,D%
  464. 843670,D%,I%,D%
  465. 843677,D%,JC%,D%
  466. jB%=27
  467. 263873:WB%=(iA%-ZA%)
  468. q%:o$=
  469. (fA%):lC%=y%:fB%=
  470. 263873:WB%=(iA%-ZA%)
  471. 263873
  472. 843663,D%,XB%
  473. 843683,XB%
  474. j$,r$
  475. B(qA%,y%,j$):y%+=1
  476. 3 $iA%=j$+
  477. (j$)," ")+
  478. iA%+=q%
  479. 843669,XB%,&29B92700
  480. EE%<0
  481. 843657,XB%
  482. (i%),y%+1)
  483. 394946
  484. D("Resources:$.Resources.Edit.ThrowBack")
  485. 1<<31)
  486. ("Set Basic$File <"+
  487. E+"$BasicFile>")
  488. "Edit:ThrowBack"
  489. V("Unexpected error:- "+
  490. $+" Internal error code "+
  491. nA(F$,XF%)
  492. _heap_code%900
  493. ("LOAD "+F$+"heapcode "+
  494. ~_heap_code%)
  495. _heap_code%+0,XF%
  496. UA%,u%,b%,p$
  497. WA%,G$,H$,jC%
  498. _U%360,_shell_blk%260
  499. A(3000)
  500. A(48)
  501. UA%!0=0
  502. UA%!4=0
  503. UA%!8=0
  504. UA%!12=0
  505. UA%!16=0
  506. UA%!20=0
  507. UA%!24=0
  508. UA%!28=0
  509. UA%!32=0
  510. UA%!36=0
  511. UA%!40=0
  512. UA%!44=0
  513. _U%!0=0
  514. _U%!4=0
  515. _U%!8=0
  516. _U%!12=UA%
  517. _U%!16=1
  518. _U%!20=0
  519. _U%!24=0
  520. _U%!28=0
  521. _U%!32=-1
  522. _U%!36=0
  523. _U%!40=0
  524. _U%!44=-1
  525. _U%!48=0
  526. _U%!52=0
  527. _U%!56=0
  528. _U%!60=0
  529. _U%!64=0
  530. _U%!68=0
  531. _U%!72=0
  532. _U%!76=
  533. A(256)
  534. _U%!80=0
  535. _U%!84=-1
  536. _U%!88=0
  537. _U%!92=0
  538. _U%!96=0
  539. _U%!100=0
  540. _U%!104=0
  541. _U%!108=-1
  542. _U%!112=-1
  543. _U%!116=-1
  544. _U%!120=-1
  545. _U%!124=-1
  546. _U%!128=0
  547. _U%!132=0
  548. _U%!136=-1
  549. _U%!140=-1
  550. _U%!144=-1
  551. _U%!148=0
  552. _U%!152=0
  553. _U%!156=0
  554. _U%!160=0
  555. _U%!164=0
  556. _U%!168=0
  557. _U%!172=0
  558. _U%!176=0
  559. _U%!180=0
  560. _U%!184=0
  561. _U%!188=0
  562. _U%!192=0
  563. _U%!196=0
  564. _U%!200=0
  565. _U%!204=0
  566. _U%!208=-1
  567. _U%!212=-1
  568. _U%!216=0
  569. _U%!220=0
  570. _U%!224=0
  571. _U%!228=0
  572. _U%!232=
  573. A(256)
  574. _U%!236=
  575. A(256)
  576. _U%!240=-1
  577. _U%!244=0
  578. _U%!248=0
  579. _U%!252=0
  580. _U%!256=0
  581. _U%!260=1
  582. _U%!264=0
  583. _U%!268=0
  584. _U%!272=0
  585. _U%!276=0
  586. _U%!280=0
  587. _U%!284=0
  588. _U%!288=-1
  589. _U%!292=-1
  590. _U%!296=-1
  591. _U%!300=0
  592. _U%!304=0
  593. _U%!308=0
  594. _U%!312=0
  595. _U%!316=0
  596. _U%!320=0
  597. _U%!324=0
  598. _U%!328=0
  599. _U%!332=0
  600. _U%!336=0
  601. _U%!340=0
  602. _U%!344=0
  603. j(_U%!232,256,0)
  604. j(_U%!236,256,0)
  605. A(256)
  606. W(WA%,256,"Obey$Dir",1)
  607. A(WA%)
  608. e(G$),2)
  609. _U%!188=
  610. G$)+1)
  611. _U%!196=
  612. H$)+1)
  613. b%=_U%!188:$b%=G$
  614. b%=_U%!196:$b%=H$
  615. p$<>""
  616. _U%!100=_U%!100
  617. p$+1)
  618. $(b%)=p$:_U%!324=b%
  619. j("WimpExtension",1.98)
  620. _U%!100=_U%!100
  621. _U%!100=_U%!100
  622. 1<<10
  623. _U%!100=_U%!100
  624. 1<<12
  625. jC%=100
  626. rA(jC%)
  627. uA(jC%)
  628. SD%+=jC%
  629. MA(CE%,gA$)
  630. 262336,CE%,&4B534154,gA$
  631. CE%,aB%
  632. _U%!100
  633. "WimpExt_Initialise",14,aB%
  634. _U%!148=aB%
  635. 530050,aB%
  636. v$,b%,H$,G$,qC%
  637. WA%,xC%,YE%
  638. A(256)
  639. T(WA%,H$+"Res$Path")
  640. _U%!100=_U%!100
  641. T(WA%,H$+"Data$Dir")
  642. W(WA%,256,H$+"Data$Dir",1)
  643. _U%!192=
  644. v$)+1)
  645. b%=_U%!192:$b%=v$
  646. _U%!192=
  647. G$)+1)
  648. b%=_U%!192:$b%=G$
  649. _U%!100
  650. D(H$+"Res:Messages")
  651. K(H$+"Res:Messages",_U%!68,_U%!64)
  652. D(H$+"Res:ShellMsgs")
  653. K(H$+"Res:ShellMsgs",_U%!280,_U%!284)
  654. K("EvntShellRes:ShellMsgs",_U%!280,_U%!284)
  655. 131125,-1,4
  656. ,,YE%
  657. 131125,-1,5
  658. ,,xC%
  659. xC%=1
  660. D(H$+"Res:Sprites22")
  661. !_U%!16=
  662. U(H$+"Res:Sprites22")
  663. D(H$+"Res:Sprites")
  664. _U%!16=
  665. U(H$+"Res:Sprites")
  666. _U%!16=1
  667. D(H$+"Res:Templates3")
  668. P(H$+"Res:Templates3",j%)
  669. D(H$+"Res:Templates")
  670. P(H$+"Res:Templates",j%)
  671. D(G$+".Messages")
  672. K(G$+".Messages",_U%!68,_U%!64)
  673. D(G$+".ShellMsgs")
  674. K(G$+".ShellMsgs",_U%!280,_U%!284)
  675. K("EvntShellRes:ShellMsgs",_U%!280,_U%!284)
  676. 131125,-1,4
  677. ,,YE%
  678. 131125,-1,5
  679. ,,xC%
  680. xC%=1
  681. D(G$+".Sprites22")
  682. _U%!16=
  683. U(G$+".Sprites22")
  684. D(G$+".Sprites")
  685. _U%!16=
  686. U(G$+".Sprites")
  687. _U%!16=1
  688. D(G$+".Templates3")
  689. P(G$+".Templates3",j%)
  690. D(G$+".Templates")
  691. P(G$+".Templates",j%)
  692. 285632
  693. A(_Q%)
  694. A(1024)
  695. A(WA%)
  696. v%,DA$
  697. 394946
  698. 1<<31)
  699. D("Resources:$.Resources.Edit.ThrowBack")
  700. ("Set Basic$File <"+
  701. E+"$BasicFile>")
  702. "Edit:ThrowBack"
  703. V("Unexpected error:- "+
  704. $+" (Internal error code "+
  705. +")")
  706. 6*v%=
  707. $,"in "+
  708. 34+"EvntShell:ShellLib")
  709. $,v%-1)
  710. V(DA$)
  711. S(VF%)
  712. A$,s%,oA$,kA$,QE%,PE%,VE%,OD%
  713. c%,h%,j%,_temp28%,_temp32%,_temp24%,_temp%,ZF%
  714. _E%,d%,rE%
  715. (rE%-SD%)>0
  716. SD%+=EF%
  717. (_U%!100
  718. 1<<11)
  719. CA(_Q%!0)
  720. X(_Q%!0,
  721. C(_Q%!0)
  722. 6:_U%!28=_Q%!12:_U%!32=_Q%!16:PE%=_Q%!0:VE%=_Q%!4
  723. P-_U%!272=_Q%!0:_U%!276=_Q%!4:_U%!320=_Q%!8
  724. Q-_temp28%=_Q%!12:_temp32%=_Q%!16:h%=_Q%!16
  725. _Q%!12=_U%!288
  726. _Q%!16=_U%!292
  727. l(_U%!296,_Q%!12,_Q%!16,_Q%!8)
  728. U$_U%!288=-1:_U%!292=-1:_U%!296=-1
  729. _Q%!16>=0
  730. W%d%=
  731. O(_Q%!12,_Q%!16,_U%+104,16,0)
  732. d%>=0
  733. l(d%,_Q%!12,_Q%!16,_Q%!8)
  734. (_Q%!8=64)
  735. OA(_Q%!12,_Q%!16)
  736. E$="Icon is draggable"
  737. FA(_Q%!12,_Q%!16)
  738. E$="Icon is not draggable"
  739. _Q%!8
  740. _U%!100
  741. 271361
  742. _U%!100=_U%!100
  743. _U%!128=0
  744. (_U%!100
  745. 1<<11)=0
  746. P(_U%!28,_U%!32,6)
  747. A$<>""
  748. q'j%=
  749. ("FN"+A$+"(_temp28%,_temp32%)")
  750. JA(_U%!28,_U%!32)
  751. _U%!100=_U%!100
  752. 1<<11
  753. _Q%!24
  754. 13,394,398,399,410,430,431
  755. CA(_Q%!0,_Q%!4,_Q%!24)
  756. EA(_Q%!24)
  757. 262364,_Q%!24
  758. KA(_Q%)
  759. 17,18:
  760. LA(_Q%)
  761. MA(_Q%)
  762. o(yD%,QD%)
  763. _U%!100
  764. "WimpExt_PrePoll"
  765. 262343,yD%,_Q%
  766. _U%!100
  767. "WimpExt_Action",_U%!148,_Q%,yC%
  768. 530054,yC%,,QD%
  769. bB%=_U%!68
  770. 398596,bB%
  771. 131102,7,,bB%
  772. 394946
  773. 393424,,-1
  774. NA(_U%!148)
  775. ZA(F$,HF%)
  776. _$,v%,WA%,T$,HD%,QB%
  777. %_U%!212=0:
  778. _U%!216<>0
  779. A(_U%!216)
  780. _U%!216=0
  781. _$=" -DieWithTask"
  782. _$=""
  783. _U%!100
  784.     F$=""
  785. A(256)
  786. W(WA%,256,
  787. E+"Res$Path",-1)
  788. A(WA%)
  789. T$,",")
  790. T$,v%-1)+
  791. T$,v%-1)+
  792. a(F$)
  793. T$,v%+1)
  794. D(T$+
  795. F$=T$+
  796. a(F$)
  797.     QB%=
  798. J("SHELLMSG26",
  799. F$<>""
  800. D(F$)
  801. a(F$)
  802. J("SHELLMSG33",F$)
  803. QB%=0
  804. Y("Help_Install "+F$+_$)
  805. _U%!100=_U%!100
  806. b%=_U%!196
  807. u(l$)
  808. 285633,,l$
  809. C(I$)
  810. V(I$,"","")
  811. Q(m%,HA$,Q$)
  812. Q$<>""
  813. 285634,m%,HA$,Q$
  814. 285634,m%,HA$
  815. q(cB%,RB%)
  816. 285642,cB%,RB%
  817. TA(bF%,i$,TA$,VA$)
  818. a%,b%,SB%
  819. _(i$)
  820. J("SHELLMSG03",i$)
  821. A(12)
  822. a%!0=
  823. i$+1)
  824. b%=a%!0:$b%=i$
  825. a%!4=
  826. TA$+1)
  827. b%=a%!4:$b%=TA$
  828. a%!8=
  829. VA$+1)
  830. b%=a%!8:$b%=VA$
  831. 285646,bF%,a%
  832. 285644,,
  833. H(O$,
  834. r(O$)
  835. dB%!64=_U%!16
  836. 262337,,dB%
  837. RA(_%)
  838. SA(_%)
  839. J(c%,y%,A$)
  840. Z(c%,y%,2,0,A$)
  841. s(c%,
  842. zC%,p%,aA%,bA%)
  843. a%,d%,b%,wA%,fD%
  844. b(zC%)
  845. 1<<5)=0
  846. n(zC%,1<<5)
  847. 1<<1)
  848. n(zC%,1<<1)
  849. F(c%,-1,_U%+92,24,
  850. F(c%,-1,_U%+92,24,
  851. a%=_U%!92+d%
  852. a%!0=c%:a%!4=-1
  853. a%!8=
  854. a%!12=
  855. a%!16=
  856. a%!20=
  857. b%=a%!8:!b%=-1
  858. b%=a%!12:!b%=-1
  859. b%=a%!16:!b%=-1
  860. b%=a%!20:!b%=-1
  861. a%=_U%!92+d%
  862. b%=a%!8:f%=0:wA%=0
  863. b%!f%<>-1
  864.         f%+=4
  865. wA%+=1
  866. a%!8=
  867. H(a%!8,4)
  868. b%=a%!8:b%!(wA%*4)=zC%
  869. b%!((wA%+1)*4)=-1
  870. a%!12=
  871. H(a%!12,4)
  872. b%=a%!12:b%!(wA%*4)=p%
  873. b%!((wA%+1)*4)=-1
  874. a%!16=
  875. H(a%!16,4)
  876. b%=a%!16:b%!(wA%*4)=aA%
  877. b%!((wA%+1)*4)=-1
  878. a%!20=
  879. H(a%!20,4)
  880. b%=a%!20:b%!(wA%*4)=bA%
  881. b%!((wA%+1)*4)=-1
  882. f(c%,y%,s%,RD%,TD%,UD%)
  883. y%>=0
  884. o(c%,y%,3)
  885. X(c%)=
  886. C("SHELLMSG30"))
  887. Z(c%,y%,0,s%,"")
  888. y(v%,x$,V$,PF%,s%,RD%,TD%,UD%)
  889. V$=""
  890. "I!_Q%=v%:_Q%!4=0:_Q%!8=0:_Q%!12=70:_Q%!16=70:_Q%!20=12314:$(_Q%+24)=x$
  891. $C!_Q%=v%:_Q%!4=0:_Q%!8=-16:_Q%!12=PF%:_Q%!16=90:_Q%!20=&1700210B
  892. _Q%!24 12
  893. _Q%!28
  894. (x$)+2
  895. $(_Q%!24)=V$
  896. $(_Q%!28)="S"+x$
  897. _Q%!32=12
  898. 262338,,_Q%
  899. f(-2,m%,s%,RD%,TD%,UD%)
  900. UA(c%,y%,I$)
  901. Z(c%,y%,8,0,I$)
  902. F(m%)
  903. X(m%)=
  904. X(m%,0,-1)
  905. G(SA%,DB%,R$,M)
  906. a%,WA$
  907. _U%!100
  908. "WimpExt_SetIconString",,,SA%,DB%,R$+
  909. B(SA%,DB%)
  910. R$<>WA$
  911. A(40)
  912. a%!0=SA%
  913. a%!4=DB%
  914. 262350,,a%
  915. (a%!24
  916. (1<<8))<>0
  917. R$>a%!36
  918. C("SHELLMSG12")
  919. $(a%!28)=R$
  920. $(a%+28)=
  921. R$,11)
  922. a%!8=0:a%!12=0
  923. 262349,,a%
  924. A(a%)
  925. k(c%)
  926. b(c%)
  927. 1<<20)
  928. b%=_U%!80
  929. gA(c%,h%,xA%,DA%,gB%,A$)
  930. a%,b%,d%
  931. w(c%,h%)
  932. C("SHELLMSG29"))
  933. o(c%,h%,6)
  934. xA%=0
  935. xA%=100
  936. F(c%,h%,_U%+72,24,
  937. a%=_U%!72+d%
  938. ^&a%!0=c%:a%!4=h%:a%!8=xA%:a%!12=DA%
  939. a%!16=gB%
  940. a%!20=
  941. (A$)+1)
  942. b%=a%!20:$b%=A$
  943. xA%>32768
  944. _U%!136=
  945. G(xA%)-8
  946. _U%!136=xA%
  947. xA%>32768
  948. _U%!136=
  949. G(xA%)-4
  950. _U%!136=xA%
  951. _U%!140=DA%
  952. _U%!144=xA%
  953. C(c%)
  954. d%,a%,tB%,tD%,hB%,uB%,n%,CC%
  955. F(c%,-1,_U%+308,12,
  956. d%>=0
  957. a%=_U%!308+d%
  958. b%=a%!8
  959. ("FN"+$b%)
  960. CC%=0
  961. A(60)
  962. F(c%,-1,_U%+92,24,
  963. d%>-1
  964. a%=(_U%!92)+d%
  965. !tD%=a%!12:hB%=a%!16:uB%=a%!20
  966. f%=0:tB%=a%!8
  967. tB%!f%<>-1
  968. n%!0=tB%!f%
  969. 262342,,n%
  970.     f%+=4
  971. n%!0=c%:
  972. 262342,,n%
  973. A(n%)
  974. k(IA%)
  975. cA%,DC%,aA%,bA%
  976. A(20)
  977. 262351,,DC%
  978. A(36)
  979. n%!0=IA%
  980. 262347,,n%
  981. aA%=(n%!4-n%!12)/2
  982. bA%=(n%!16-n%!8)/2
  983. p(IA%,DC%!0+aA%,DC%!4-bA%)
  984. A(n%)
  985. A(DC%)
  986. I(c%)
  987. A(2048)
  988. 262358,c%,EA%,4251648,57344
  989. !EA%<>-1
  990. XA(c%,!EA%)
  991. A(EA%)
  992. B(SA%,DB%)
  993. L$,GA%
  994. DB%<0
  995. SA%<-2
  996. _U%!100
  997. "WimpExt_GetIcon",,,SA%,DB%
  998. ,,,L$
  999. A(40)
  1000. GA%!0=SA%
  1001. GA%!4=DB%
  1002. 262350,,GA%
  1003. (GA%!24
  1004. (1<<8))<>0
  1005. L$=$(GA%!28)
  1006. L$=$(GA%+28)
  1007. A(GA%)
  1008. B(SA%,DB%,R$)
  1009. A(50)
  1010. a%!0=SA%
  1011. a%!4=DB%
  1012. 262350,,a%
  1013. (a%!24
  1014. (1<<8))<>0
  1015. R$>a%!36
  1016. C("SHELLMSG12")
  1017. $(a%!28)=R$
  1018. $(a%+28)=
  1019. R$,11)
  1020. a%!8=0:a%!12=0
  1021. 262349,,a%
  1022. A(a%)
  1023. D(c%,h%,RB%)
  1024. RB%<>0
  1025. RB%=1<<22
  1026. L(c%,h%,RB%,1<<22)
  1027. RB%<>0
  1028. A(24)
  1029. 262355,,EA%
  1030. !EA%=c%
  1031. EA%!4=h%
  1032. 262354,-1
  1033. A(EA%)
  1034. vA%,t%
  1035.     vA%=
  1036. _U%!100
  1037. A(256)
  1038. T(t%,"StrongHelp$Dir")
  1039. A(t%)
  1040. _(q$)
  1041. _F%,b%,t%
  1042. A(512)
  1043. _U%!208=-1
  1044. T(t%,"StrongHelp$Dir")
  1045. 393438,"<StrongHelp$Dir>"
  1046. _U%!216<>0
  1047. A(_U%!216)
  1048. _U%!216=
  1049. q$+1)
  1050. b%=_U%!216
  1051. $b%=q$
  1052. A(t%)
  1053. C("SHELLMSG11"))
  1054. Y("Help_Word "+q$)
  1055. A(t%)
  1056. g(RF%)
  1057. j("UtilityModule",RF%)
  1058. K(V$,SF%,eA$,k$)
  1059. XD%,dA%
  1060. A(260)
  1061. !dA%=0:$(dA%+4)=V$+
  1062. k$=""
  1063. k$="Message from "+eA$
  1064. 262367,dA%,19,k$
  1065. 262367,dA%,17,k$
  1066. A(dA%)
  1067. D(e$)
  1068. DA%,I
  1069. 8,I,e$
  1070. DA%=0
  1071. V(YA$)
  1072. vA%,dA%
  1073. dA%=_shell_blk%
  1074. !dA%=
  1075. $(dA%+4)=YA$+
  1076. 393439,dA%,17,"XMessage from "+
  1077. 393439,dA%,1,
  1078. D=3328
  1079. H=2307
  1080. _MSE_SELECTBUT=4
  1081. _MSE_MENUBUT=2
  1082. _MSE_ADJUSTBUT=1
  1083. Z=1282
  1084. a=262336
  1085. b=262337
  1086. c=262338
  1087. d=262339
  1088. e=262343
  1089. _POPUP_TYPE_TEXT=0
  1090. _POPUP_TYPE_WIMPCOLOUR=1
  1091. _POPUP_TYPE_DATEPICK=2
  1092. _POPUP_TYPE_FONTPICK=4
  1093. _POPUP_TYPE_COLOUR24=8
  1094. A(bD%)
  1095. _heap_code%+4,SB%,bD%
  1096. j(i%,NE%,OE%)
  1097. I%,sC%,eB%
  1098. sC%=NE%
  1099. eB%=NE%
  1100. sC%>0
  1101. (sC%*4)
  1102. i%!(I%-1)=OE%
  1103. eB%>0
  1104. i%=i%+(sC%*4)
  1105. eB%-1
  1106. i%?I%=OE%
  1107. W(tC%,EB%,s$,f)
  1108. t$,B,gF%
  1109. 131107,s$,tC%,EB%,0,-3*(f=
  1110. ,,B,gF%,DA%
  1111. t$=t$+
  1112. (tC%?u%)
  1113. I(nA%)
  1114. _heap_code%+8,nA%
  1115. L    nA%=0
  1116. e(F$)
  1117. F$,".")
  1118. F$,".")+1)
  1119. jD%,S$,d%
  1120. S$="":d%=0
  1121. jD%?d%<>0
  1122. (jD%?d%)
  1123. Y    d%+=1
  1124. 34)+1)
  1125. 34)+2)
  1126. j(XA$,i)
  1127. a%,FC%,L$
  1128. A(256)
  1129. ("Set Module$Check Y")
  1130. ("RMEnsure "+XA$+" "+
  1131. i+" Set Module$Check N")
  1132. 35,"Module$Check",a%,256,0,0
  1133. ,,FC%
  1134. a%?FC%=13
  1135. ("Unset Module$Check")
  1136. L$=$a%
  1137. A(a%)
  1138. L$="N"
  1139. a%,FC%,L$
  1140. A(256)
  1141. ("Set RO3$Check Y")
  1142. ("RMEnsure UtilityModule 3.00 Set RO3$Check N")
  1143. 35,"RO3$Check",a%,256,0,0
  1144. ,,FC%
  1145. a%?FC%=13
  1146. ("Unset RO3$Check")
  1147. L$=$a%
  1148. A(a%)
  1149. L$="N"
  1150. rA(wD%)
  1151. EF%=wD%
  1152. uA(wD%)
  1153. jF%=wD%
  1154. _shell_StaticList_Init
  1155. b%=_U%!188
  1156. T(tC%,s$)
  1157. 131107,s$,tC%,-1,0,0
  1158. K(D$,
  1159. EB%,p%
  1160. 3,"Cannot open message file '"+D$+"'"
  1161. 267520,,D$
  1162. p%,,EB%
  1163. cE%=0
  1164. A(EB%)
  1165. 30,6,,,17+
  1166. ,,gC%
  1167. $(gC%+16)=D$
  1168. 267521,gC%,gC%+16
  1169. U(D$)
  1170. VB%,S%,T%
  1171. (D$):T%=
  1172. #S%+16:
  1173. A(T%)
  1174. !VB%=T%:VB%!4=0
  1175. VB%!8=16:VB%!12=16
  1176. 46,521,VB%
  1177. 46,522,VB%,D$
  1178. UE%,_3d%
  1179. _U%!100
  1180. (1<<10)
  1181. 6,161,140
  1182. ,,UE%
  1183. _3d%=
  1184. _3d%=
  1185. _3d%=
  1186.     =_3d%
  1187. P(a$,
  1188. GC%,ZD%,FE%,XA%
  1189. RE%,v%,hC%,X$,AA%,SE%,r%
  1190. TE%,HC%
  1191. A(12)
  1192.     AA%=0
  1193. c(a$)
  1194. A(RE%)
  1195. GC%=BF%
  1196. aA(a$,XA%,AA%,r%)
  1197. A(4+(20*AA%))
  1198. _U%!4=IC%
  1199. A(XA%)
  1200. ZD%=aE%
  1201. FE%=aE%+XA%
  1202.     AA%=0
  1203.     HC%=4
  1204. 393433,,a$
  1205. d("SHELLMSG34","template",a$)
  1206. $hC%="*"
  1207. 262363,,GC%,ZD%,FE%,_U%!232,hC%,v%
  1208. ,,ZD%,,,X$,v%
  1209. v%<>0
  1210. IC%!HC%=GC%
  1211. $(IC%+HC%+4)=X$
  1212. IC%!(HC%+16)=-1
  1213. HC%+=20
  1214. TE%=(GC%!84)*32
  1215. GC%+=(88+TE%)
  1216. AA%+=1
  1217. 262362
  1218. _U%!0=AA%
  1219. d("SHELLMSG35","template",a$)
  1220. d("SHELLMSG36",a$,"template")
  1221. A(hC%)
  1222.     GF%=0
  1223. !IC%=AA%
  1224. oA%,a%,iC%,hE%,c%,HA%,MA$,pA%,_value%,j%
  1225. A(20)
  1226. pA%=_U%!328
  1227. 262351,,oA%
  1228. c%=oA%!12
  1229. hE%=pA%!8
  1230. iC%=!oA%
  1231. iC%<>!pA%
  1232. A(50)
  1233. !a%=c%
  1234. 262347,,a%
  1235. HA%=iC%-a%!4
  1236. a%!4=hE%
  1237. 262350,,a%
  1238. 262340,,a%
  1239. a%!4=c%
  1240. a%!16=HA%
  1241. 262338,,a%+4
  1242. 262353,c%,a%!8,a%!12,a%!8+pA%!4,a%!20
  1243. %_value%=
  1244. (((HA%-a%!8)*100)/pA%!4)
  1245. b%=pA%!16
  1246. b%!28=_value%
  1247. pA%!24<>-1
  1248. ("FN"+$(pA%!24)+"(_value%)")
  1249. pA%!12>=0
  1250. (_value%)
  1251. G(c%,pA%!12,MA$,-1)
  1252. !pA%=iC%
  1253. A(a%)
  1254. A(oA%)
  1255. CA(m%)
  1256. DD%,A$,WE%,BE%,a%,KA%
  1257. A(12)
  1258. 262358,m%,KA%,4128768,13<<16
  1259. !KA%<>-1
  1260. B(m%,!KA%)
  1261. A(KA%)
  1262. A(100)
  1263. A$=""
  1264. P(m%,-1,4)
  1265. a%!0=m%
  1266. 262344,,a%
  1267. "WE%=a%!4-a%!20:BE%=a%!16-a%!24
  1268. 530049,,a%
  1269. A$<>""
  1270. ("FN"+A$+"("+
  1271. a%+","+
  1272. WE%+","+
  1273. BE%+")")
  1274. 262346,,a%
  1275. A(a%)
  1276. X(c%,ED%,KC%)
  1277. d%,a%,o%,f%,DE%,LC%,FB%,GB%
  1278. GD%,vB%,MC%,iE%,sE%,CC%,NC%
  1279. F(c%,-1,_U%+304,12,
  1280. d%>=0
  1281. a%=_U%!304+d%
  1282. b%=a%!8
  1283. ("FN"+$b%)
  1284. CC%=0
  1285. #    vB%=
  1286. A(40)
  1287. MC%!0=c%
  1288. 262347,,MC%
  1289. (MC%!32
  1290. 524288)=524288
  1291. A(MC%)
  1292. A(20)
  1293. 262351,,NC%
  1294. _Q%!0=c%
  1295. 262347,,_Q%
  1296. 262341,,_Q%
  1297. F(c%,-1,_U%+92,24,
  1298. d%>-1
  1299. a%=(_U%!92)+d%
  1300. 3*tB%=a%!8:tD%=a%!12:hB%=a%!16:uB%=a%!20
  1301. _Q%!0=c%
  1302. KC%>0
  1303. LC%=KC%
  1304. LC%=-1
  1305. LC%=_Q%!28
  1306. 262341,,_Q%
  1307. 262347,,_Q%
  1308. 262342,,_Q%
  1309. A(40)
  1310. tB%!f%<>-1
  1311. o%!0=tB%!f%
  1312. DE%=0
  1313. DE%=o%!0
  1314. iE%=o%!0
  1315. 262347,,o%
  1316. NC%!16=-9
  1317. NC%!16>-5
  1318. GD%=tD%!f%
  1319. FB%=o%!16-o%!8
  1320. GB%=o%!12-o%!4
  1321. o%!4=_Q%!4+hB%!f%
  1322. o%!12=o%!4+GB%
  1323. o%!16=_Q%!16+uB%!f%
  1324. o%!8=o%!16-FB%
  1325. FB%=o%!16-o%!8
  1326. GB%=_Q%!12-_Q%!4
  1327. o%!4=_Q%!4+hB%!f%
  1328. o%!12=_Q%!12
  1329. o%!16=_Q%!16+uB%!f%
  1330. o%!8=o%!16-FB%
  1331. FB%=_Q%!16-_Q%!8
  1332. GB%=o%!12-o%!4
  1333. o%!4=_Q%!4+hB%!f%
  1334. o%!12=o%!4+GB%
  1335. o%!16=_Q%!16
  1336. o%!8=_Q%!8+uB%!f%
  1337. FB%=o%!16-o%!8
  1338. GB%=_Q%!12-_Q%!4
  1339. o%!4=_Q%!4+hB%!f%
  1340. o%!12=_Q%!12
  1341. o%!16=_Q%!8+FB%+uB%!f%
  1342. o%!8=o%!16+FB%
  1343. FB%=_Q%!16-_Q%!8
  1344. GB%=o%!12-o%!4
  1345. o%!4=_Q%!12-GB%+hB%!f%
  1346. o%!12=o%!4+GB%
  1347. o%!16=_Q%!16
  1348. o%!8=_Q%!8
  1349. o%!28=LC%
  1350. o%!28=sE%
  1351. 262341,,o%
  1352. sE%=o%!0
  1353. u    f%+=4
  1354. _Q%!28=iE%
  1355. 262341,,_Q%
  1356. A(o%)
  1357. _Q%!0=c%
  1358. 262347,,_Q%
  1359. LC%=-2
  1360. _Q%!28=-2
  1361. KC%=-1
  1362. _Q%!28=-1
  1363. 262341,,_Q%
  1364. A(NC%)
  1365. l(d%,c%,h%,_button%)
  1366. CG%,JA%,QA%,OC%,_temp$,JD%
  1367. HB%,LD%,MD%
  1368. EG%,kB%
  1369. _button%<>2
  1370. QA%=_U%!104+d%
  1371. $_U%!288=c%:_U%!292=h%:_U%!296=d%
  1372. HB%=QA%!8
  1373. HB%=HB%*8
  1374. HB%=HB%*2
  1375. HB%=HB%*4
  1376. JA%=QA%!12
  1377. JD%=JA%!16
  1378. JD%<>0
  1379. _temp$=
  1380. B(c%,JA%!0)
  1381. ("FN"+$JD%+"(_temp$)")
  1382. B(c%,JA%!0))
  1383. _button%=1
  1384. _new_val%=OC%+((HB%)*(-1))
  1385. _new_val%=OC%+HB%
  1386. JA%!20=0
  1387. _new_val%>JA%!8
  1388. _new_val%=JA%!8
  1389. _new_val%<JA%!4
  1390. _new_val%=JA%!4
  1391. _new_val%>JA%!8
  1392. _new_val%=JA%!4
  1393. _new_val%<JA%!4
  1394. _new_val%=JA%!8
  1395. kB%=JA%!12
  1396. kB%<>0
  1397. 1_new_val$=
  1398. ("FN"+$kB%+"(_new_val%,_button%)")
  1399. _new_val$=
  1400. _new_val%
  1401. _new_val%<>OC%
  1402. G(c%,JA%!0,_new_val$,-1)
  1403. O(c%,h%,g%,rA%,PC%)
  1404. l%,e%,k%,d%,tA%,b%
  1405. (!g%=0
  1406. (!g%=0)
  1407. A(rA%+4)
  1408. b%=!g%
  1409. b%!0=rA%
  1410. b%!4=0
  1411. b%!8=0
  1412. b%=!g%
  1413. l%=!b%
  1414.     d%=-1
  1415. tA%=-1
  1416. b%=!g%
  1417. tA%<0
  1418. (b%!e%=0
  1419. b%!e%+4=0)
  1420. tA%=e%
  1421. (b%!e%=c%)
  1422. h%=-1
  1423.     d%=e%
  1424. b%!(e%+4)=h%
  1425.     d%=e%
  1426. e%+=rA%
  1427. e%+=rA%
  1428. ((e%>=(l%+4))
  1429. (d%=-1
  1430. tA%<0
  1431. d%=l%+4
  1432. H(!g%,rA%)
  1433. b%=!g%
  1434. b%!0+=rA%
  1435. b%+=d%
  1436. b%!4=0
  1437. b%!8=0
  1438. d%=tA%
  1439. _U%!44<>-1
  1440. YB%=_U%!44
  1441. #YB%,dA$
  1442. _U%!148>0
  1443. M(277248,"ShellDBug:Trace "+dA$)
  1444. OA(c%,h%)
  1445. m(c%,h%)
  1446. b%=(p%
  1447. 24576)
  1448. b%=24576=
  1449. FA(c%,h%)
  1450. a%,E,F,eA%,p%,YB%,XE%,ZE%,fE%,w$
  1451. gB%,X$
  1452. F(c%,h%,_U%+72,24,
  1453. eA%>=0
  1454. a%=_U%!72+eA%
  1455. gB%=a%!16
  1456. B(c%,gB%)
  1457. X$=""
  1458. C("SHELLMSG28"))
  1459. A(100+(
  1460. R(c%)*32))
  1461. !a%=c%
  1462. 262348,,a%
  1463. E=a%!4-a%!20:F=a%!16-a%!24
  1464. ZE%=a%!68
  1465. a%!4=h%
  1466. 262350,,a%
  1467. $!a%=c%:a%!4=5:p%=a%!24:fE%=a%!32
  1468. a%!8=a%!8+E
  1469. a%!12=a%!12+F
  1470. a%!16=a%!16+E
  1471. a%!20=a%!20+F
  1472. a%!24=0:a%!28=0
  1473. a%!32=&7FFFFFFF
  1474. a%!36=&7FFFFFFF
  1475. 6,161,28
  1476. ,,YB%
  1477. XE%=((YB%
  1478. 2)=2)
  1479. YB%=p%
  1480. QA(fE%,"s")
  1481. C("SHELLMSG19"))
  1482. w$<>""
  1483. 271360,133,ZE%,w$,a%+8
  1484. _U%!100=_U%!100
  1485. 262352,,a%
  1486. 262352,,a%
  1487. A(a%)
  1488. O(c%,h%,_U%+332,32,
  1489. eA%>=0
  1490. cA(c%,h%,eA%)
  1491. d%,FA%,K$,gE%
  1492. _U%!32>=0
  1493. ,%d%=
  1494. O(_Q%!12,_Q%!16,_U%+340,24,
  1495. .    d%=-1
  1496. d%>=0
  1497. gE%=!(_U%!340+d%+16)
  1498. _POPUP_TYPE_DATEPICK
  1499. FA%=_U%!340+d%
  1500. FA%!12=-1
  1501. K$=""
  1502. K$=$(FA%!12)
  1503. r(FA%!0,FA%!8,FA%!4,K$)
  1504. _POPUP_TYPE_FONTPICK
  1505. FA%=_U%!340+d%
  1506. FA%!12=-1
  1507. K$=""
  1508. K$=$(FA%!12)
  1509. eA(FA%!0,FA%!8,FA%!4,K$)
  1510. _POPUP_TYPE_COLOUR24
  1511. FA%=_U%!340+d%
  1512. FA%!12=-1
  1513. K$=""
  1514. K$=$(FA%!12)
  1515. fA(FA%!0,FA%!8,FA%!4,K$)
  1516. _POPUP_TYPE_TEXT
  1517. Q(_Q%,!(_U%!340+d%+20),_Q%!12,_Q%!16,
  1518. _POPUP_TYPE_WIMPCOLOUR
  1519. t(!(_U%!340+d%+20),
  1520. n(_Q%!12,!(_U%!340+d%+8)))
  1521. 99,"Unknown popup type detected"
  1522. iA(_Q%,_U%!28,_U%!32)
  1523. _U%!32=0
  1524. u(_Q%,_U%!28,_U%!32)
  1525. P(_U%!28,_U%!32,2)
  1526. A$<>""
  1527. v(4,_U%!28,_U%!32)
  1528. L'j%=
  1529. ("FN"+A$+"(_temp28%,_temp32%)")
  1530. _U%!32=0
  1531. _U%!28=_U%!20
  1532. 262356,,-1
  1533. b%,s%,RC%,d%
  1534. W    RC%=
  1535. _Q%!16>=0
  1536. Y%d%=
  1537. O(_Q%!12,_Q%!16,_U%+340,24,
  1538. !(_U%!340+d%+16)=1
  1539. t(!(_U%!340+d%+20),
  1540. n(_Q%!12,!(_U%!340+d%+8)))
  1541. !(_U%!340+d%+16)=2
  1542. FA%=_U%!340+d%
  1543. FA%!12=-1
  1544. K$=""
  1545. K$=$(FA%!12)
  1546. r(FA%!0,FA%!8,FA%!4,K$)
  1547. Q(_Q%,!(_U%!340+d%+20),_Q%!12,_Q%!16,
  1548. x(_Q%!12,_Q%!16)
  1549. _Q%!16>=0
  1550. f(_Q%!8,_Q%!12,_Q%!16)
  1551. (s%<>0
  1552. _Q%!12>0
  1553. _Q%!16>=0)
  1554. f(_Q%!8,_Q%!12,-1)
  1555. s%<>0
  1556. Q(_Q%,s%,_Q%!12,_Q%!16,RC%)
  1557. p%,A$,j%,SC%,f%
  1558. A(12+(
  1559. R(_U%!28)*32))
  1560. _U%!28>0
  1561. 262358,_U%!28,SC%,61440,45056
  1562. SC%!f%<>-1
  1563. SC%!f%=_U%!32
  1564. lA(_U%!28,_U%!32,1)
  1565. {    f%+=4
  1566. _U%!32=0
  1567. u(_Q%,_U%!28,_U%!32)
  1568. P(_U%!28,_U%!32,3)
  1569. A$<>""
  1570. v(1,_U%!28,_U%!32)
  1571. ("FN"+A$+"(_temp28%,_temp32%)")
  1572. A(SC%)
  1573. P(c%,y%,wB%)
  1574. e%,g%,k%,l%,A$
  1575. c%=-1
  1576. c%=-2
  1577. G(_U%!12)-8
  1578. g%=_U%!12
  1579.     A$=""
  1580. (g%!e%=c%)
  1581. g%!(e%+4)
  1582. g%!(e%+(12+(wB%*4)))>32768
  1583. A$=$(g%!(e%+(12+(wB%*4))))
  1584. e%+=48
  1585. g%!(e%+4)=y%
  1586. g%!(e%+(12+(wB%*4)))>32768
  1587. A$=$(g%!(e%+(12+(wB%*4))))
  1588. e%+=48
  1589. e%+=48
  1590. e%+=48
  1591. ((e%>=l%)
  1592. JA(c%,h%)
  1593. a%,w%,lB%,d%,ZB%,j%
  1594. A(30)
  1595. 262351,,lB%
  1596. F(c%,h%,_U%+72,24,
  1597. d%=-1
  1598. d%=-2
  1599. C("SHELLMSG13"),0,"",
  1600. C("warning"))
  1601. a%=(_U%!72)+d%
  1602. a%!8>32768
  1603. G(a%!8)-4
  1604. ZB%=a%!8
  1605. w%=_U%!76
  1606. w%!0=256
  1607. w%!12=0
  1608. w%!16=1
  1609. w%!20=lB%!12
  1610. w%!24=lB%!16
  1611. w%!28=lB%!0
  1612. w%!32=lB%!4
  1613. w%!36=ZB%
  1614. w%!40=a%!12
  1615. $(w%+44)=
  1616. B(c%,a%!16))
  1617. 262375,18,w%,w%!20,w%!24
  1618. _U%!120=_Q%!8
  1619. _U%!136=ZB%
  1620. _U%!140=a%!12
  1621. _U%!144=a%!8
  1622. _U%!156=a%!4
  1623. _U%!200=w%!20
  1624. _U%!204=w%!24
  1625. A(lB%)
  1626. CA(c%,h%,jB%)
  1627. IB%,xB%,yB%,f%
  1628. VD%,WD%,TC%,PE%,VE%,mF%,EA%
  1629. A(1024)
  1630. 262355,,EA%
  1631. !EA%=-1
  1632. A(EA%)
  1633. 262358,c%,EA%,4251648,57344
  1634. xB%=!EA%:f%=0
  1635. EA%!f%=h%
  1636. VD%=EA%!(f%-4)
  1637. WD%=EA%!(f%+4)
  1638.     f%+=4
  1639. EA%!f%=-1
  1640. yB%=EA%!(f%-4)
  1641. mA(c%,0,4)
  1642. 398,394
  1643. h%=yB%
  1644. 262354,c%,xB%,-1,-1,-1,
  1645. B(c%,xB%))
  1646. 262354,c%,WD%,-1,-1,-1,
  1647. B(c%,WD%))
  1648. 399,410
  1649. h%=xB%
  1650. 262354,c%,yB%,-1,-1,-1,
  1651. B(c%,yB%))
  1652. 262354,c%,VD%,-1,-1,-1,
  1653. B(c%,VD%))
  1654. 262354,c%,xB%,-1,-1,-1,
  1655. B(c%,xB%))
  1656. 262354,c%,yB%,-1,-1,-1,
  1657. B(c%,yB%))
  1658. A(EA%)
  1659. EA(jB%)
  1660. BA%,l%,k%,e%,IA%,m$,f$,g$
  1661. TD%,RD%,UD%,aA%,bA%,GD%,kF%,d%
  1662. r%,n%
  1663. BA%=_U%!60
  1664. l%=_U%!180*24
  1665. :e%=0
  1666. BA%!e%=jB%
  1667. e%+=24
  1668. e%>=l%
  1669. b%=BA%+e%
  1670. m$=$(b%!8)
  1671. (m$<>""
  1672. b%!12=0)
  1673. a(m$,IA%)
  1674. A(36)
  1675. n%!0=IA%
  1676. 262347,,n%
  1677. aA%=(n%!4-n%!12)/2
  1678. bA%=(n%!16-n%!8)/2
  1679. A(n%)
  1680. f$=$(b%!16)
  1681. f$<>""
  1682. b%!12>0
  1683. ("FN"+f$+"("+
  1684. b%!12+")")
  1685. ("FN"+f$+"("+
  1686. IA%+")")
  1687. X(b%!12)
  1688. F(b%!12)
  1689. b%!12>0
  1690. C("SHELLMSG09")
  1691. b(IA%,aA%,bA%)
  1692. g$=$(b%!20)
  1693. g$<>""
  1694. b%!12>0
  1695. % j%=
  1696. ("FN"+g$+"("+
  1697. b%!12+")")
  1698. ("FN"+g$+"("+
  1699. IA%+")")
  1700. m$="":f$="":g$="":r%=
  1701. KA(_Q%)
  1702. YD%,QE%,_E%,ZF%,j%,mC%,d%
  1703. 2%d%=
  1704. O(_U%!28,_U%!32,_U%+340,24,
  1705. d%>=0
  1706. pA(_Q%,d%)
  1707. A(256)
  1708. 262351,,_shell_blk%
  1709. _U%!264=0
  1710. 285636,_U%!24,_Q%
  1711. YD%,,mC%
  1712. qA(YD%,mC%)
  1713. _shell_blk%!8=1
  1714. I(_U%!224)
  1715. _temp%=_U%!224
  1716. $_temp%<>""
  1717. >(j%=
  1718. ("FN"+$_temp%+"(_U%!52,_U%!56)")
  1719. c(_U%!36,_U%!40,_U%!24)
  1720. _shell_FontMenuSelFN$=""
  1721. A(mC%)
  1722. LA(_Q%)
  1723. b%,j%
  1724. _Q%!16
  1725. sA(_Q%)
  1726. tA(_Q%)
  1727. x(_Q%,
  1728. vA(_Q%)
  1729. x(_Q%,
  1730. wA(_Q%)
  1731. xA(_Q%)
  1732. yA(_Q%)
  1733. _U%!164>0
  1734. b%=_U%!164
  1735. ("FN"+$b%)
  1736. zA(_Q%)
  1737. _A(_Q%)
  1738. AB(_Q%)
  1739. BB(_Q%)
  1740. CB(_Q%)
  1741. _U%!168>0
  1742. b%=_U%!168
  1743. o:j%=
  1744. ("FN"+$b%+"("+
  1745. (_Q%!4)+","+
  1746. L(_Q%+28)+
  1747. 34+")")
  1748. _U%!208=-1
  1749. L(_Q%+28)="StrongHelp"
  1750. _U%!208=_Q%!4
  1751. Y("Help_Install -DieWithTask "+
  1752. S+"."+
  1753. b%=_U%!216
  1754. $b%<>""
  1755. _($b%)
  1756. A(_U%!216)
  1757. _U%!216=0
  1758. _U%!172>0
  1759. b%=_U%!172
  1760. ("FN"+$b%)
  1761. _Q%!4=_U%!208
  1762. _U%!208=-1
  1763. L(_Q%+28)="StrongHelp"
  1764. _U%!208=_Q%!20
  1765. 524608
  1766. DB(_Q%)
  1767. 524611
  1768. EB(_Q%)
  1769. 524613
  1770. FB(_Q%)
  1771. 524615
  1772. GB(_Q%)
  1773. HB(_Q%)
  1774. MA(_Q%)
  1775. _Q%!16
  1776. IB(_Q%)
  1777. JB(_Q%)
  1778. _U%!44<>-1
  1779. #(_U%!44):_U%!44=-1
  1780. NA(aB%)
  1781. _U%!100
  1782. "WimpExt_Initialise",14,aB%
  1783. 393437,aB%,&4B534154
  1784. 661123,aB%
  1785. _U%!100
  1786. "XImpulse_CloseDown",_U%!148
  1787. JB%,nC%
  1788. A(256)
  1789. JB%!12=0
  1790. 262375,19,JB%,-2,_U%!212
  1791. ,,nC%
  1792. _U%!212=_U%!212+1
  1793. nC%<>-1
  1794. (_U%!212)>64
  1795. nC%<>-1
  1796. JB%!0=24
  1797. JB%!12=0
  1798. JB%!16=262342
  1799. JB%!20=nC%
  1800. 262375,17,JB%,0
  1801. A(JB%)
  1802. a(F$)
  1803. D(F$+".HelpData")
  1804. QB%=-1
  1805. J("SHELLMSG32","HelpData")
  1806. D(F$+".Index")
  1807. QB%=-1
  1808. J("SHELLMSG32","Index")
  1809. E(ZA$)
  1810. D,ZA$
  1811. J(I$,h$)
  1812. V(I$,h$,"")
  1813. Y(n$)
  1814. M(277248,n$)
  1815. V(I$,h$,z$)
  1816. p%,L%,b$,UC%,bB%
  1817. I$,8)="SHELLMSG"
  1818. UC%=_U%!284:bB%=_U%!280
  1819. UC%=_U%!64:bB%=_U%!68
  1820. 398594,bB%,I$,UC%,256,h$,z$
  1821. ,,,L%;p%
  1822. UC%?L%=13
  1823. b$=$(UC%)
  1824. _(O$)
  1825. d%,aD%
  1826. h(O$)
  1827. d%>=0
  1828. r(O$)
  1829. d%,YA%,_A%
  1830. h(O$)
  1831. d%>=0
  1832. YA%=_A%!d%
  1833. J("SHELLMSG03",O$)
  1834. RA(m%)
  1835. d%,f%,b%
  1836. PA%=0
  1837. PA%!0=m%
  1838. PA%!4=-1
  1839. Y(m%)
  1840. d%=-1
  1841. d%=-1
  1842. PA%!f%<>-1
  1843.     f%+=4
  1844. H(PA%,4)
  1845. b%=PA%+f%
  1846. b%!0=m%
  1847. b%!4=-1
  1848. b%=PA%+d%
  1849. b%!0=m%
  1850. SA(_%)
  1851. GE%,CA%,e%
  1852. h(O$)+16
  1853. M+4+GE%
  1854. !CA%=-1
  1855. !CA%=
  1856. e%=!CA%
  1857. e%!0=_%
  1858. e%!4=-1
  1859. !CA%=
  1860. H(!CA%,4)
  1861. _A%=!CA%
  1862. _A%!e%<>-1
  1863.     e%+=4
  1864. _A%!(e%+0)=_%
  1865. _A%!(e%+4)=-1
  1866. Z(c%,y%,wB%,s%,A$)
  1867. e%,kB%,g%,l%,k%
  1868. e%=0:k%=
  1869. c%=-1
  1870. c%=-2
  1871. G(_U%!12)-8
  1872. g%=_U%!12
  1873. (g%!e%=c%)
  1874. g%!(e%+4)=y%
  1875. e%+=48
  1876. e%+=48
  1877. (e%>=l%
  1878. (g%!e%<>0)
  1879. e%+=48
  1880. e%>=l%
  1881. _U%!12=
  1882. H(_U%!12,48)
  1883. g%=_U%!12
  1884. g%!(e%+0)=0
  1885. g%!(e%+4)=0
  1886. g%!(e%+8)=0
  1887. g%!(e%+12)=0
  1888. g%!(e%+16)=0
  1889. g%!(e%+20)=0
  1890. g%!(e%+24)=0
  1891. g%!(e%+28)=0
  1892. g%!(e%+32)=0
  1893. g%!(e%+36)=0
  1894. g%!(e%+40)=0
  1895. g%!(e%+44)=0
  1896. g%!(e%+0)=c%
  1897. g%!(e%+4)=y%
  1898. s%<>0
  1899. g%!(e%+8)=s%
  1900. pC%=e%+(12+(wB%*4))
  1901. g%!pC%<>0
  1902. A(g%!pC%)
  1903. A$+1)
  1904. $kB%=A$
  1905. g%!pC%=kB%
  1906. b(c%)
  1907. p%,a%
  1908. A(36)
  1909. a%!0=c%
  1910. 262347,,a%
  1911. p%=a%!32
  1912. A(a%)
  1913. c%,yD%)
  1914. a%,p%,JE%,m%
  1915. q(c%)
  1916. A(100+(
  1917. R(c%)*32))
  1918. a%!0=c%
  1919. 262348,,a%
  1920. p%=a%!32
  1921. p%=(p%
  1922. a%!32=p%
  1923. 262339,,a%
  1924. 262337,,a%+4
  1925. !a%=m%
  1926. 262341,,a%
  1927. A(a%)
  1928. m%<>c%
  1929. y(c%,m%)
  1930.     b    c%=m%
  1931. F(c%,h%,g%,rA%,PC%)
  1932. l%,e%,k%,d%,tA%,b%
  1933. (!g%=0
  1934. (!g%=0)
  1935. A(rA%)
  1936. b%=!g%:b%!0=0:b%!4=0
  1937. G(!g%)-8
  1938. e%=0:k%=
  1939. :d%=-1:tA%=-1
  1940. b%=!g%
  1941. tA%<0
  1942. (b%!e%=0
  1943. b%!e%+4=0)
  1944. tA%=e%
  1945. (b%!e%=c%)
  1946. h%=-1
  1947.     v    d%=e%
  1948. b%!(e%+4)=h%
  1949.     z    d%=e%
  1950. e%+=rA%
  1951. e%+=rA%
  1952. ((e%>=l%)
  1953. (d%=-1
  1954. tA%<0
  1955.     d%=l%
  1956. H(!g%,rA%)
  1957. b%=!g%
  1958. b%+=d%:b%!0=0:b%!4=0
  1959. d%=tA%
  1960. H(KE%,bD%)
  1961. _heap_code%+12,KE%,bD%
  1962. o(c%,h%,VC%)
  1963. VC%=12
  1964. VC%=13
  1965. J("SHELLMSG23","PROCshell_IconSetButtonType")
  1966. VC%<0
  1967. VC%>15
  1968. J("SHELLMSG22","PROCshell_IconSetButtonType")
  1969. L(c%,h%,VC%<<12,61440)
  1970. X(_%)
  1971. -1,-2
  1972. _U%!20
  1973. Y(_%)>-1
  1974. w(c%,h%)
  1975. p%,b%
  1976. m(c%,h%)
  1977. b%=(p%
  1978. 1<<1)
  1979. b%=(1<<1)
  1980. G(nA%)
  1981. 29,6,!(_heap_code%+28),nA%
  1982. p(c%,HA%,LA%)
  1983. LE%,ME%,d%,a%
  1984. A(100+(
  1985. R(c%)*32))
  1986. a%!0=c%
  1987. 262348,,a%
  1988. LE%=a%!12-a%!4
  1989. ME%=a%!16-a%!8
  1990. a%!4=HA%
  1991. a%!8=LA%
  1992. a%!12=HA%+LE%
  1993. a%!16=LA%+ME%
  1994. 262341,,a%
  1995. 262342,,a%
  1996. X(c%)
  1997. F(c%)
  1998. b(c%,0,0)
  1999. A(a%)
  2000. XA(c%,h%)
  2001. 262354,c%,h%,-1,-1,-1,
  2002. B(c%,h%))
  2003. o(0,_U%!148)
  2004. S(cD%)
  2005. cD%=0
  2006. L(WC%,XC%,IF%,JF%)
  2007. A(16)
  2008. !GA%=WC%
  2009. GA%!4=XC%
  2010. GA%!8=IF%
  2011. GA%!12=JF%
  2012. 262349,,GA%
  2013. A(GA%)
  2014. I(SB%)
  2015. SB%<32768
  2016. 99,"No heapblock defined at this address"
  2017. G(SB%)
  2018. _shell_StaticList_Init
  2019.     PA%=0
  2020. c(e$)
  2021. DA%,KF%,LF%,hA%,MF%,J$
  2022. 8,5,e$
  2023. DA%,,KF%,LF%,hA%,MF%
  2024. aA(D$,
  2025. MB(D$,XA%,AA%,r%)
  2026. NB(D$,XA%,AA%,r%)
  2027. d(I$,h$,z$)
  2028. V(I$,h$,z$)
  2029. _U%!100
  2030. (1<<9)
  2031. M(QF%,n$)
  2032. mB%,dD%
  2033. dD%=(
  2034. n$+30)
  2035. A(dD%)
  2036. mB%!12=0
  2037. mB%!16=QF%
  2038. $(mB%+20)=n$+
  2039. mB%!0=dD%
  2040. 393447,17,mB%,0
  2041. A(mB%)
  2042. m(c%,h%)
  2043. p%,a%
  2044. A(50)
  2045. a%!0=c%:a%!4=h%
  2046. 262350,,a%
  2047. p%=a%!24
  2048. A(a%)
  2049. R(c%)
  2050. LB%,zB%,IB%
  2051. (_U%!100
  2052. 1<<10)
  2053. c%=-1
  2054. c%=-2
  2055. A(88)
  2056. !LB%=c%
  2057. 262348,,LB%+1
  2058. IB%=LB%!88
  2059. A(6000)
  2060. !LB%=c%
  2061. 262348,,LB%
  2062. IB%=LB%!88
  2063. A(LB%)
  2064. QA(rC%,aA$)
  2065. I%,L$
  2066. rC%<=0
  2067.     L$=""
  2068.  !I%=
  2069. N($rC%),";"+
  2070. N(aA$))
  2071. "    L$=""
  2072. $(L$=
  2073. $(rC%+I%),
  2074. $(rC%+I%)+";",";")-1)
  2075. cA(c%,h%,eA%)
  2076. z%,HA%,LA%,a%,QA%
  2077. QA%=_U%!332+eA%
  2078. A(50)
  2079. z%!0=c%
  2080. z%!4=QA%!8
  2081. 262350,,z%
  2082. a%=_U%!328
  2083. a%!0=0
  2084. a%!4=z%!16-z%!8
  2085. a%!8=h%
  2086. a%!12=QA%!12
  2087. a%!16=QA%
  2088. a%!24=QA%!24
  2089. z%!0=c%
  2090. 262347,,z%
  2091. HA%=z%!4-z%!20
  2092. LA%=z%!16-z%!24
  2093. z%!4=h%
  2094. 262350,,z%
  2095. z%!4=7
  2096. z%!8+=HA%
  2097. z%!12+=LA%
  2098. z%!16+=HA%
  2099. z%!20+=LA%
  2100. z%!24=z%!8
  2101. z%!28=z%!12
  2102. z%!32=z%!24+a%!4
  2103. z%!36=z%!20
  2104. 262352,,z%
  2105. A(z%)
  2106. _U%!100=_U%!100
  2107. 1<<11
  2108. r(_%,YC%,ZC%,K$)
  2109. nF%=_%
  2110. rF%=YC%
  2111. pA$=K$
  2112. d(hA$,"_DatePicker_PreOpen","")
  2113. e(_%,ZC%,
  2114. eA(_%,YC%,ZC%,K$)
  2115. tF%=_%
  2116. vF%=YC%
  2117. iA$=K$
  2118. d(jA$,"_FontPicker_PreOpen","")
  2119. e(_%,ZC%,
  2120. fA(_%,YC%,ZC%,K$)
  2121. wF%=_%
  2122. xF%=YC%
  2123. mA$=K$
  2124. d(nA$,"_ColourPicker_PreOpen","")
  2125. e(_%,ZC%,
  2126. Q(_Q%,s%,c%,h%,RC%)
  2127. KA%,cA%
  2128. c(_Q%!0,_Q%!4,s%)
  2129. A(50)
  2130. A(36)
  2131. KA%!0=c%:KA%!4=h%
  2132. 262350,,KA%
  2133. cA%!0=c%
  2134. 262347,,cA%
  2135. c(cA%!4+KA%!16+64,_Q%!4,s%)
  2136. cA%!4+KA%!16+64,_Q%!4
  2137. A(KA%)
  2138. A(cA%)
  2139. t(aC%,v%)
  2140. 285649,aC%,v%
  2141. n(c%,h%)
  2142. _B%,GA%
  2143. A(40)
  2144. GA%!0=c%
  2145. GA%!4=h%
  2146. 262350,,GA%
  2147. _B%=(GA%!24>>28)
  2148. A(GA%)
  2149. iA(_Q%,c%,h%)
  2150. h%<>-1
  2151. c%>-1
  2152. f(_Q%!8,c%,h%)
  2153. s%<>0
  2154. Q(_Q%,s%,c%,h%,
  2155. u(_Q%,c%,h%)
  2156. eA%,a%,gB%,_name$,b%,j%
  2157. QB(c%,h%)
  2158. F(c%,-1,_U%+72,24,
  2159. eA%>=0
  2160. a%=_U%!72+eA%
  2161. gB%=a%!16
  2162. _name$=
  2163. B(c%,gB%)
  2164. b%=a%!20
  2165. $b%<>""
  2166. ("FN"+$b%+"(_name$)")
  2167. v(vC%,c%,h%)
  2168. A(50)
  2169. a%!8=vC%:a%!12=c%:a%!16=h%
  2170. 530048,,a%
  2171. a%!8=0
  2172. 530048,,a%
  2173. A(a%)
  2174. x(c%,h%)
  2175. f(vC%,c%,y%)
  2176. e%,g%,k%,l%,s%
  2177. c%=-1
  2178. c%=-2
  2179. G(_U%!12)-8
  2180. g%=_U%!12
  2181.     A$=""
  2182. (g%!e%=c%)
  2183. g%!(e%+4)=y%
  2184. s%=g%!(e%+8)
  2185. s%=-2
  2186. s%=_U%!252
  2187. e%+=48
  2188. (e%>=l%
  2189. lA(c%,h%,RB%)
  2190. RB%=0
  2191. RB(c%,h%)
  2192. SB(c%,h%)
  2193. mA(c%,h%,vC%)
  2194. 6,15,1
  2195. !_Q%!8=vC%:_Q%!12=c%:_Q%!16=h%
  2196. a(fA$,
  2197. r(fA$)
  2198. dB%!64=_U%!16
  2199. 262337,,dB%
  2200. b(c%,aA%,bA%)
  2201. j%,oA%
  2202. A(20)
  2203. _U%!20=c%
  2204. 262351,,oA%
  2205. 262356,,c%,oA%!0+aA%,oA%!4+bA%
  2206. A(oA%)
  2207. pA(_Q%,d%)
  2208. QA%,KA$,_item_text$,r%,bC%
  2209. _%,gD%,hD%
  2210. QA%=_U%!340+d%
  2211. _%=!QA%
  2212. bC%=QA%!8
  2213. iD%=QA%!12
  2214. gD%=QA%!16
  2215. aC%=QA%!20
  2216. hD%=!_Q%
  2217. _item_text$=
  2218. FA(aC%,hD%)
  2219. iD%<>-1
  2220. KA$=$(iD%)
  2221. ("FN"+KA$+"("+
  2222. _%+","+
  2223. bC%+",_item_text$)")
  2224. r%<>0
  2225. iD%=-1
  2226. bC%>=0
  2227. _POPUP_TYPE_TEXT
  2228. G(_%,bC%,_item_text$,
  2229. _POPUP_TYPE_WIMPCOLOUR
  2230. TB(_%,bC%,hD%)
  2231. 99,"Unknown Popup type in DoPopupSelect (type was "+
  2232. gD%+")"
  2233. qA(IA%,_h_blk%)
  2234. ("FN"+$IA%+"(_h_blk%)")
  2235. c(HA%,LA%,cC%)
  2236. P(_U%!28,_U%!32,1)
  2237. A$<>""
  2238. ("FN"+A$+"(_U%!28,_U%!32)")
  2239. cC%<>_U%!24
  2240. I(_U%!256)
  2241. A(_U%!256):_U%!256=0
  2242. I(_U%!244)
  2243. A(_U%!244):_U%!244=0
  2244. cC%=_U%!252
  2245. 262356,,cC%,HA%-64,LA%
  2246. _U%!264=1
  2247. _Q%!0=HA%:_Q%!4=LA%
  2248. 285637,cC%,_Q%
  2249. _U%!264=0
  2250. _U%!24=cC%
  2251. _U%!36=HA%
  2252. _U%!40=LA%
  2253. _U%!52=_U%!28
  2254. _U%!56=_U%!32
  2255. sA(_Q%)
  2256. b%,d%,a%,u%
  2257. _Q%!4<>_U%!148
  2258. F(_Q%!20,_Q%!24,_U%+96,16,
  2259. d%>-1
  2260. a%=_U%!96+d%
  2261. s(_Q%!40,a%!8,
  2262. _Q%!0=256
  2263. #_Q%!12=_Q%!8:_Q%!36=-1:_Q%!16=2
  2264.  $(_Q%+44)=
  2265. S+".ScrapFile"+
  2266. 262375,18,_Q%,_Q%!4
  2267. A(_U%!156)
  2268. _U%!156=
  2269. A((_Q%!0)+8)
  2270. b%=_U%!156
  2271. _Q%!0
  2272. b%!u%=_Q%!u%
  2273. _U%!28=_Q%!20:_U%!32=_Q%!24
  2274. _U%!128=0
  2275. _U%!132=_Q%!36
  2276. _U%!152=
  2277. A(_Q%!36)
  2278. _Q%!0=28
  2279. _Q%!12=_Q%!8
  2280. _Q%!16=6
  2281. _Q%!20=_U%!152+_U%!128
  2282. _Q%!24=_U%!132
  2283. 262375,18,_Q%,_Q%!4
  2284. _U%!112=_Q%!8
  2285. tA(_Q%)
  2286. _fullname$,nA%,wC%,a%,b%,j%
  2287. nA%=0:wC%=_Q%?(44+nA%)
  2288. wC%<>0
  2289. _fullname$+=
  2290. (wC%)
  2291. nA%+=1
  2292. wC%=_Q%?(44+nA%)
  2293. 6$d%=
  2294. F(_U%!28,_U%!32,_U%+72,24,
  2295. d%>=0
  2296. a%=(_U%!72)+d%
  2297. b%=a%!20
  2298. $b%<>""
  2299. ;!j%=
  2300. ("FN"+$b%+"(_fullname$)")
  2301. I(a%!8)
  2302. 8,10,_fullname$,a%!12,,a%!8,a%!8+
  2303. G(a%!8)+1
  2304. C("SHELLMSG21")
  2305. _Q%!36>-1
  2306. _U%!80<>0
  2307. A(_U%!80)
  2308. _U%!80=
  2309. _fullname$+1)
  2310. b%=_U%!80
  2311. $b%=_fullname$
  2312. IB_Q%!16=3:!_Q%=256:_Q%!20=_U%!200:_Q%!24=_U%!204:_Q%!40=_U%!140
  2313. J&_Q%!36=
  2314. c(_fullname$):_Q%!12=_Q%!8
  2315. $(_Q%+44)=_fullname$+
  2316. _U%!84=_Q%!8
  2317. 262375,18,_Q%,_Q%!20,_Q%!24
  2318. _U%!28<>_U%!20
  2319. C(_U%!28)
  2320. 262356,,-1
  2321. oB(_fullname$,_Q%!20,_Q%!24,_Q%!8,_Q%!40)
  2322. _U%!336>0
  2323. _U%!336-=1
  2324. UB(4095)
  2325. x(_Q%,nB%)
  2326. pF%,d%,a%,_temp%,BC%,DA%,c$
  2327. IA(nB%,_Q%!40)
  2328. DA%=_Q%!40
  2329. L(_Q%+44)
  2330. _U%!96<>0
  2331. c    d%=-1
  2332. f$d%=
  2333. F(_Q%!20,_Q%!24,_U%+96,16,
  2334. d%=-1
  2335. h d%=
  2336. F(_Q%!20,-1,_U%+96,16,
  2337. d%>-1
  2338. a%=_U%!96+d%
  2339. s(_Q%!40,a%!8,nB%)
  2340. DF%=_Q%!12
  2341. _Q%!12=_Q%!8
  2342. _Q%!16=4
  2343. 262375,18,_Q%,_Q%!4
  2344. _U%!100
  2345. MB%=-1
  2346. _U%!100=_U%!100
  2347. JA(DF%=_U%!108)
  2348. z(DA%,MB%,a%!8,c$,_Q%!36,a%)
  2349. _U%!156<>0
  2350. A(_U%!156)
  2351. _U%!156=0
  2352. vA(_Q%)
  2353. wA(_Q%)
  2354. oF%,kD%,lD%
  2355.     lD%=
  2356. _U%!144>32768
  2357. _Q%!12=_Q%!8
  2358. _Q%!16=7
  2359. kD%=_U%!136
  2360. _U%!140=4089
  2361. _U%!144+=4
  2362. (kD%-_U%!128)<_Q%!24
  2363. _Q%!24=kD%-_U%!128
  2364.     lD%=
  2365. 262385,_U%!148,_U%!144+_U%!128,_Q%!4,_Q%!20,_Q%!24
  2366. 262375,17,_Q%,_Q%!4
  2367. _U%!120=_Q%!8
  2368. _U%!128+=_Q%!24
  2369. _U%!128=0
  2370. xA(_Q%)
  2371. d%,a%,LA$,b%
  2372. _Q%!12=_U%!112
  2373. _U%!128+=_Q%!24
  2374. _Q%!24<_U%!132
  2375. F(_U%!28,_U%!32,_U%+96,16,
  2376. a%=_U%!96+d%
  2377. b%=_U%!156
  2378. L(b%+44)
  2379. z(b%!40,_U%!152,a%!8,LA$,_U%!132,a%)
  2380. _U%!128>_U%!132
  2381. '_U%!152=
  2382. H(_U%!152,_U%!128,_U%!132)
  2383. _Q%!12=_Q%!8
  2384. _Q%!16=6
  2385. _Q%!20=_U%!152+_U%!128
  2386. _Q%!24=_U%!132
  2387. 262375,18,_Q%,_Q%!4
  2388. _U%!112=_Q%!8
  2389. A(_U%!152)
  2390. _U%!152=0
  2391. C("SHELLMSG15"))
  2392. yA(_Q%)
  2393. b%,mD%,a%,u%,nD%
  2394. _U%!300>0
  2395. A(256)
  2396. _Q%!0
  2397. a%!u%=_Q%!u%
  2398. b%=_U%!300
  2399. mD%=a%!4
  2400. !a%<24
  2401. nD%=0
  2402. nD%=a%!20
  2403. !a%!12=a%!8:
  2404. 262375,19,a%,mD%
  2405. ("FN"+$b%)<>0
  2406. _closedown%=
  2407. !a%=24:a%!24=508
  2408. 262375,8,a%,mD%
  2409. _closedown%=
  2410. A(a%)
  2411. zA(Q%)
  2412. AA$="Run "+
  2413. 12,2,Q%!20,AA$,
  2414. _A(_Q%)
  2415. _U%!312>0
  2416. b%=_U%!312
  2417. ("FN"+$b%)
  2418. AB(_Q%)
  2419. I$,E$,N$,NB%,oD%,lA$,KA%,p%
  2420. A(12)
  2421. 393430,_Q%!32,KA%,4128768,12<<16
  2422. !KA%<>-1
  2423. B(_Q%!32,!KA%)
  2424. A(KA%)
  2425. I$=""
  2426. P(_Q%!32,_Q%!36,8)
  2427. KA(_Q%!32,_Q%!36)
  2428. N$<>""
  2429. N$,1))="I"
  2430. N$,";")
  2431. NB%=0
  2432. N$,2)
  2433. N$,2,NB%-2)
  2434. N(N$),
  2435. N(";i"))
  2436. N(N$),
  2437. N(";"),NB%+1)
  2438. NB%>0
  2439. oD%>0
  2440. N$,NB%+2,oD%-NB%-2)
  2441. N$,NB%+2)
  2442. I$<>""
  2443. _Q%!16=1283
  2444. _Q%!12=_Q%!8
  2445. V(I$,"","")
  2446. LA(E$)
  2447. $(_Q%+20)=E$
  2448. !_Q%=(
  2449. E$+25)
  2450. 262375,17,_Q%,_Q%!4
  2451. BB(_Q%)
  2452. A$,QE%,HA%,LA%,j%,_temp%,nA%,P$,oB%,a%
  2453. #HA%=_Q%!24:LA%=_Q%!28:_U%!264=0
  2454. _U%!20<>0
  2455. t(_U%!20)
  2456. _Q%!20
  2457. _U%!228
  2458. WB(_U%!228,
  2459. C("warning"))
  2460. G(_U%!228,1,
  2461. C("SHELLMSG07"),0)
  2462. 262376,,_U%!228,HA%,LA%
  2463. NA(_U%!24,_Q%+32)
  2464. I(oB%!4)
  2465. XB(oB%,HA%,LA%)
  2466. A(32)
  2467. 285636,_U%!24,_Q%+32
  2468. YB(a%!8,P$,Q$)
  2469. A(a%)
  2470. ZB(_Q%!20,HA%,LA%,P$,Q$)
  2471. CB(_Q%)
  2472. d%,f%,pB%,cA%
  2473. pB%=_U%!184
  2474. _U%!160>0
  2475. b%=_U%!160
  2476. ("FN"+$b%)
  2477. A(100)
  2478. pB%<>0
  2479. pB%!f%<>-1
  2480. " d%=
  2481. F(pB%!f%,-1,_U%+92,24,
  2482. d%>-1
  2483. q(pB%!f%)
  2484. !cA%=pB%!f%
  2485. 262342,,cA%
  2486. X(pB%!f%,0,-1)
  2487. *    f%+=4
  2488. A(cA%)
  2489. L(bE%)
  2490. OA$,_C%
  2491. ((bE%?_C%)>31
  2492. _C%<255)
  2493. OA$+=
  2494. (bE%?_C%)
  2495. _C%+=1
  2496. DB(_Q%)
  2497. EB(_Q%)
  2498. FB(_Q%)
  2499. GB(_Q%)
  2500. HB(_Q%)
  2501. _Q%!16
  2502. 277248
  2503. U$=$(_Q%+20)
  2504. U$,30)="EvntShellLib:ShellDBug started"
  2505. _U%!100
  2506. _U%!100=(_U%!100
  2507. 1<<4)
  2508. M(277248,"ShellDBug:Init Debug messages from "+
  2509. U$,25)="EvntShellLib:TraceInitAck"
  2510. _U%!100=(_U%!100
  2511. 1<<4)
  2512. U$,20)="EvntShellLib:TraceOn"
  2513. U$,21)="EvntShellLib:TraceOff"
  2514. U$,28)="EvntShellLib:ListClickSelect"
  2515. U$,28)="EvntShellLib:ListClickAdjust"
  2516. U$,25)="EvntShellLib:ListHelpTags"
  2517. dB(_Q%)
  2518. IB(_Q%)
  2519. _Q%!12<>_U%!84
  2520. 131080,6,"<Wimp$Scrap>"
  2521. 255,"Data Transfer failed: Receiver died"
  2522. JB(_Q%)
  2523. dE%,b%
  2524. b%=_U%!156
  2525. _Q%!12<>_U%!112
  2526. _U%!128=0
  2527. 131107,"Wimp$Scrap",,-1,0,3
  2528. ,,dE%
  2529. dE%<>0
  2530. i $(b%+44)="<Wimp$Scrap>"+
  2531. b%!0=(49+
  2532. L(b%+44)))
  2533. b%!12=b%!8
  2534. b%!16=2
  2535. b%!36=-1
  2536. 262375,18,b%,b%!4
  2537. _U%!108=b%!8
  2538. C("SHELLMSG14"))
  2539. A(_U%!152)
  2540. _U%!152=0
  2541. E("SHELLMSG06")
  2542. u%,b%
  2543. b%=_U%!232
  2544. b%?u%>0
  2545. 262274,u%
  2546. b%?u%-=1
  2547. h(O$)
  2548. d%,AA%,_A%,f%
  2549. (O$)>11
  2550. J("SHELLMSG02",O$)
  2551.     d%=-1
  2552. $(((_A%)+(20*f%))+4)=O$
  2553. d%=f%*20
  2554.     f%+=1
  2555. d%<>-1
  2556. f%>(AA%-1)
  2557. =_U%!4
  2558. Y(m%)
  2559. k%,f%
  2560. k%=-1:f%=0
  2561. PA%<>0
  2562. PA%!f%<>-1
  2563. PA%!f%=m%
  2564.     k%=f%
  2565.     f%+=4
  2566. q(c%)
  2567. b(c%)
  2568. 1<<16)
  2569. y(MA%,NA%)
  2570. NA%<>MA%
  2571. _U%!28=MA%
  2572. _U%!28=NA%
  2573. !_Q%=MA%
  2574. !_Q%=NA%
  2575. R(MA%,NA%,_U%!12,48)
  2576. R(MA%,NA%,_U%!96,16)
  2577. R(MA%,NA%,_U%!72,24)
  2578. R(MA%,NA%,_U%!92,24)
  2579. AA(MA%,NA%,_U%!104,16)
  2580. AA(MA%,NA%,_U%!332,32)
  2581. gB(MA%,NA%)
  2582. hB(MA%,NA%)
  2583. MB(D$,
  2584. v%,rB%,OB%,gA%
  2585. f%,AD%,sD%,IB%,eC%,p%
  2586. v%=0:AA%=0:rB%=0:OB%=0
  2587. A(13)
  2588. 262361,,D$
  2589. $t%="*"
  2590. 262363,,-1,,,,t%,v%
  2591. ,XA%,TF%,,,,v%
  2592. v%<>0
  2593. XA%>OB%
  2594. OB%=XA%
  2595. rB%+=TF%
  2596. AA%+=1
  2597. 262362
  2598. XA%=OB%+rB%
  2599. A(t%)
  2600. NB(D$,
  2601. v%,rB%,OB%
  2602. t%,X%,uD%,UF%
  2603. f%,AD%,sD%,IB%,eC%,p%
  2604. v%=0:AA%=0:rB%=0:OB%=0:r%=0
  2605. D(D$)
  2606. r%=-1
  2607. PA(D$)<>4076
  2608. r%=-2
  2609. A(13)
  2610. #X%=16
  2611. 12,4,X%,t%,4
  2612. gA%=!t%
  2613. gA%>0
  2614. AA%+=1
  2615.     vD%=0
  2616. 12,4,X%,t%,4
  2617. uD%=!t%
  2618. 12,4,X%,t%,4
  2619. UF%=!t%
  2620. 12,4,X%,t%,12
  2621. #X%=gA%+56
  2622. 12,4,X%,t%,4
  2623. p%=!t%
  2624. #X%=gA%+72
  2625. 12,4,X%,t%,12
  2626. vD%+=
  2627. v(gA%,p%,t%,X%)
  2628. #X%=gA%+84
  2629. 12,4,X%,t%,4
  2630. IB%=!t%
  2631. IB%>0
  2632. eC%=0
  2633. IB%-1
  2634. #X%=gA%+88+(eC%*32)+16
  2635. 12,4,X%,t%,4
  2636. p%=!t%
  2637. #X%=gA%+88+(eC%*32)+20
  2638. 12,4,X%,t%,12
  2639. vD%+=
  2640. v(gA%,p%,t%,X%)
  2641. #X%=sD%
  2642. rB%+=vD%
  2643. uD%>OB%
  2644. OB%=uD%
  2645. gA%=0
  2646. A(t%)
  2647. XA%=OB%+rB%
  2648. N(J$)
  2649. (J$)>0
  2650. J$,u%,1)>="a"
  2651. J$,u%,1)<="z"
  2652. J$,u%,1)=
  2653. J$,u%,1))
  2654. d(cA$,PA$,QA$)
  2655. IA%,aA%,bA%,n%
  2656. a(cA$,IA%)
  2657. A(36)
  2658. n%!0=IA%
  2659. 262347,,n%
  2660. aA%=(n%!4-n%!12)/2
  2661. bA%=(n%!16-n%!8)/2
  2662. A(n%)
  2663. _U%!20<>0
  2664. 262356,,-1
  2665. t(_U%!20)
  2666. _U%!20=c%
  2667. PA$<>""
  2668. ("FN"+PA$+"("+
  2669. IA%+")")
  2670. b(IA%,aA%,bA%)
  2671. QA$<>""
  2672. ("FN"+QA$+"("+
  2673. IA%+")")
  2674. e(_%,WF%,kE%)
  2675. sB%,YA%,lE%,mE%,nE%,oE%
  2676. A(40)
  2677. sB%!0=_%
  2678. sB%!4=WF%
  2679. 262350,,sB%
  2680. lE%=sB%!16
  2681. mE%=sB%!20
  2682. A(40)
  2683. YA%!0=_%
  2684. 262347,,YA%
  2685. nE%=YA%!4
  2686. oE%=YA%!16
  2687. YA%!0=kE%
  2688. 262347,,YA%
  2689. pE%=YA%!16-YA%!8
  2690. p(kE%,nE%+lE%,oE%+mE%-(pE%/2))
  2691. A(sB%)
  2692. A(YA%)
  2693. =_U%!20
  2694. QB(c%,h%)
  2695. d%,a%,l%
  2696. a%=_U%!72:d%=0
  2697. a%<>0
  2698. G(a%)-8
  2699. !(a%+d%)=c%
  2700. B(!a%,a%!16)
  2701. X$,".")=0
  2702. C("SHELLMSG01"))
  2703. =    d%=l%
  2704. d%+=24
  2705. d%>=l%
  2706. RB(WC%,XC%)
  2707. L(WC%,XC%,0,2097152)
  2708. SB(WC%,XC%)
  2709. L(WC%,XC%,2097152,2097152)
  2710. FA(aC%,aF%)
  2711. fC%,e%,V$
  2712. fC%!0=aF%
  2713. fC%!4=-1
  2714. 285636,aC%,fC%
  2715. V$=$(e%!12)
  2716. A(fC%)
  2717. TB(c%,h%,_B%)
  2718. _B%<0
  2719. _B%>15
  2720. J("SHELLMSG24","PROCshell_IconSetBGColour")
  2721. L(c%,h%,_B%<<28,&F0000000)
  2722. s(DA%,BC%,nB%)
  2723. qF%,f%,k%,b%,BD%
  2724. f%=0:k%=-1:BD%=
  2725. _U%!100
  2726. _U%!100=_U%!100
  2727. BC%!f%<>-1
  2728. b%=BC%!f%
  2729. 1<<31
  2730. b%=b%
  2731. 1<<31
  2732. ^    BD%=
  2733. `    BD%=
  2734. b%=DA%
  2735. c    k%=f%
  2736. _U%!100=_U%!100
  2737. h    f%+=4
  2738. (DA%>=4096)
  2739. k%=-1
  2740. k%<>-1
  2741. _U%!100
  2742. UB(cF%)
  2743. A(256)
  2744. w%!0=256
  2745. w%!12=0
  2746. w%!16=524610
  2747. w%!20=0
  2748. w%!24=0
  2749. w%!28=0
  2750. w%!32=0
  2751. w%!36=256
  2752. w%!40=cF%
  2753. $(w%+44)="PrintOut"+
  2754. 262375,18,w%,w%!20,w%!24
  2755. A(w%)
  2756. IA(nB%,DA%)
  2757. r%,xD%,RA$,SA$
  2758. A(256)
  2759. -RA$=
  2760. W(xD%,256,"Alias$@RunType_"+
  2761. ~DA%,1)
  2762. A(xD%)
  2763. RA(RA$)
  2764. e(SA$)="!"+
  2765. JA(uF%)
  2766. CA$,ZB%,CD%,MB%
  2767. L(_Q%+44)
  2768. c(CA$)
  2769. ZB%<0
  2770. C("SHELLMSG16"))
  2771. A(ZB%)
  2772. 131080,16,CA$,MB%,0
  2773. SA(CD%)
  2774. A(MB%)
  2775. C("SHELLMSG17"))
  2776. z(DA%,MB%,BC%,_filename$,_file_size%,a%)
  2777. f%,k%,b%,j%
  2778. f%=0:k%=-1
  2779. BC%!f%<>-1
  2780. b%=BC%!f%
  2781. 1<<31
  2782. b%=b%
  2783. 1<<31
  2784. b%=DA%
  2785. k%=f%
  2786.     f%+=4
  2787. b%=a%!12
  2788. ("FN"+$(b%!k%)+"("+
  2789. MB%+","+
  2790. DA%+",_filename$,"+
  2791. _file_size%+")")
  2792. KA(c%,h%)
  2793. a%,N$,p%
  2794. h%=-1
  2795.     N$=""
  2796. A(40)
  2797. a%!0=c%:a%!4=h%
  2798. 262350,,a%
  2799. p%=a%!24
  2800. a%!32>0
  2801. N$=$(a%!32)
  2802. A(a%)
  2803. LA(Y$)
  2804. M$,b$,TC%
  2805.     M$=""
  2806. Y$,"\")>0
  2807. Y$,"\")
  2808. Y$,TC%-1)
  2809. Y$,TC%+1,1)
  2810. Y$,TC%+2)
  2811. "A":M$+="Click ADJUST to"
  2812. "a":M$+="ADJUST"
  2813. "D":M$+="Drag with SELECT to"
  2814. "d":M$+="Drag with ADJUST to"
  2815. "G":M$+="This option is greyed out because"
  2816. "R":M$+="Move the pointer right"
  2817. "S":M$+="Click SELECT to"
  2818. "s":M$+="SELECT"
  2819. "T":M$+="This is the"
  2820. "W":M$+="This window is"
  2821. "w":M$+="window"
  2822. M$+="\"+b$
  2823. =M$+Y$
  2824. t(m%)
  2825. A(20)
  2826. m%<>0
  2827. TA(m%)
  2828. iB(m%)
  2829. jB(m%)
  2830. m%=_U%!20
  2831. _U%!20=0
  2832. kB(m%)
  2833. n%!0=m%
  2834. 262339,,n%
  2835. A(n%)
  2836. SA%,l$)
  2837. b%,n%,m%,tE%
  2838. A(100+(
  2839. R(SA%)*32))
  2840. n%!0=SA%
  2841. 262348,,n%
  2842. ((n%!60)
  2843. 256)=0
  2844. b%=n%+76
  2845. l$,11)
  2846. 262339,,n%
  2847. 262337,,n%+4
  2848. m%<>SA%
  2849. y(SA%,m%)
  2850. SA%=m%
  2851. tE%=n%!84
  2852. $(!(n%+76))=
  2853. l$,tE%-1)
  2854. ((n%!32)
  2855. (1<<16))<>0
  2856. 262353,-1,n%!4,n%!16,n%!12,n%!16+44
  2857. A(n%)
  2858. NA(s%,uE%)
  2859. f%,oB%
  2860. 285639,s%
  2861. oB%=s%+28+((uE%!f%)*24)
  2862. s%=oB%!4
  2863.     f%+=4
  2864. uE%!f%=-1
  2865. XB(SB%,HA%,LA%)
  2866. b%,IA%,j%
  2867. b%=SB%!4
  2868. a($b%!0,IA%)
  2869. $b%!4<>""
  2870. ("FN"+$b%!4+"("+
  2871. IA%+")")
  2872. $b%!8<>""
  2873. ("FN"+$b%!8+"("+
  2874. IA%+")")
  2875. 262376,,IA%,HA%,LA%
  2876. _U%!20=IA%
  2877. YB(cB%,
  2878. r%,BA%,b%,d%,k%,l%,AB%,f%
  2879.     zD%=0
  2880. %BA%=_U%!220:d%=0:k%=
  2881. :P$="":zD%=0
  2882. I(BA%)
  2883.     f%+=4
  2884. BA%!f%=-1
  2885. l%=f%:f%=0
  2886. b%=!(BA%+d%+0)
  2887. b%<>-1
  2888. b%=cB%
  2889. AB%=BA%!(d%+4):P$=$AB%
  2890. zD%=BA%!(d%+8)
  2891. AB%=BA%!(d%+12):Q$=$AB%
  2892. d%+=16
  2893. !    d%=l%
  2894. d%>=l%
  2895. P$="":Q$=""
  2896. ZB(eF%,HA%,LA%,P$,Q$)
  2897. j%,b%,AG%,f%
  2898. _shell_FontMenuSelFN$=Q$
  2899. I(_U%!224)
  2900. A(_U%!224)
  2901. _U%!224=
  2902. P$+1)
  2903. b%=_U%!224:$b%=P$
  2904. P$<>""
  2905. /#j%=
  2906. ("FN"+P$+"(_U%!52,_U%!56)")
  2907. 262376,,eF%,HA%,LA%
  2908. _U%!100=_U%!100
  2909. M(277248,"ShellDBug:TraceOn")
  2910. (_U%!100
  2911. (1<<9))
  2912. _U%!100=_U%!100
  2913. (1<<9)
  2914. M(277248,"ShellDBug:TraceOff")
  2915. BA%,e%,l%,b%,AB%
  2916. BA%=_U%!12
  2917. G(BA%)
  2918. b%=BA%!(e%+20):AB%=BA%+e%
  2919. I(b%)
  2920. $b%<>""
  2921. e%+=48
  2922. (e%>=l%)
  2923. BA%,e%,l%,b%,AB%
  2924. BA%=_U%!12
  2925. G(BA%)
  2926. b%=BA%!(e%+24):AB%=BA%+e%
  2927. I(b%)
  2928. $b%<>""
  2929. e%+=48
  2930. (e%>=l%)
  2931. BA%,e%,l%,b%,AB%
  2932. BA%=_U%!12
  2933. G(BA%)
  2934. b%=BA%!(e%+44):AB%=BA%+e%
  2935. I(b%)
  2936. $b%<>""
  2937. e%+=48
  2938. (e%>=l%)
  2939. dB(_Q%)
  2940. h    =!CA%
  2941. R(MA%,NA%,g%,d%)
  2942. e%,l%
  2943. I(g%)
  2944. G(g%)-8
  2945. (g%!e%=MA%)
  2946. g%!e%=NA%
  2947. e%+=d%
  2948. (e%>=l%)
  2949. AA(MA%,NA%,g%,d%)
  2950. e%,l%
  2951. I(g%)
  2952. l%=!g%
  2953. (g%!e%=MA%)
  2954. g%!e%=NA%
  2955. e%+=d%
  2956. (e%>=l%)
  2957. gB(MA%,NA%)
  2958. Y(MA%)
  2959. PA%!d%=NA%
  2960. hB(MA%,NA%)
  2961. CA%,AA%,I%,e%
  2962. CA%!16<>-1
  2963. BB%=CA%!16
  2964. BB%!e%<>-1
  2965. BB%!e%=MA%
  2966. BB%!e%=NA%
  2967.     e%+=4
  2968. CA%+=20
  2969. PA(e$)
  2970. 8,5,e$
  2971. ,,DA%
  2972. DA%=(DA%
  2973. 1048320)>>>8
  2974. v(gA%,p%,_D%,X%)
  2975. EB%,xE%,f%,AD%
  2976. 8388864)=256
  2977. EB%=_D%!8
  2978. (_D%!4<>-1)
  2979. xE%=_D%!4
  2980. #X%=gA%+xE%
  2981.     f%+=1
  2982. AD%<32
  2983. EB%+=+f%
  2984.     EB%=0
  2985. RA(c$)
  2986. v%,EA$,b%
  2987. c$,".")=0
  2988. EA$=""
  2989. v%=b%+1
  2990. c$,".",v%)
  2991. c$,v%-2)
  2992. SA(CD%)
  2993. =((CD%
  2994. 1)=1)
  2995. TA(m%)
  2996. iB(c%)
  2997. e%,s%,k%,l%,g%,u%
  2998. e%=0:s%=0:k%=
  2999. c%=-1
  3000. c%=-2
  3001. G(_U%!12)-8
  3002. g%=_U%!12
  3003. (g%!e%=c%)
  3004. e%+=48
  3005. (e%>=l%
  3006. g%!(e%+0)=0
  3007. g%!(e%+4)=0
  3008. g%!(e%+8)=0
  3009. u%=12
  3010. g%!(e%+u%)<>0
  3011. A(g%!(e%+u%))
  3012. g%!(e%+u%)=0
  3013. lB(c%,-1)
  3014. mB(c%,-1)
  3015. nB(c%,-1)
  3016. jB(m%)
  3017. CA%,AA%,I%,e%
  3018. CA%!16<>-1
  3019. BB%=CA%!16
  3020. BB%!e%<>-1
  3021. BB%!e%=m%
  3022. BB%!e%=0
  3023.     e%+=4
  3024. CA%+=20
  3025. kB(_%)
  3026. d%,f%,k%
  3027. PA%>0
  3028. PA%!f%=_%
  3029. PA%!f%=0
  3030.     f%+=4
  3031. PA%!f%<>-1
  3032. UA(J$,FA$,hA%)
  3033. (J$)<hA%
  3034. J$=J$+
  3035. (J$),FA$)
  3036. VA(m%)
  3037. CA%,AA%,e%,f%,d$
  3038.     d$=""
  3039. -1,-2
  3040. d$="iconbar"
  3041. CA%!16<>-1
  3042. BB%=CA%!16
  3043. BB%!e%<>-1
  3044. BB%!e%=m%
  3045. d$=$(CA%+4)
  3046.     e%+=4
  3047.     f%+=1
  3048. CA%+=20
  3049. d$<>""
  3050. f%=AA%
  3051. d$=""
  3052. J("SHELLMSG38",
  3053. WA(J$,FA$,hA%)
  3054. (J$)<hA%
  3055. (J$),FA$)+J$
  3056. lB(c%,h%)
  3057. d%,a%,l%
  3058. F(c%,h%,_U%+72,24,
  3059. d%>=0
  3060. h%=-1
  3061. G(_U%!72)-8
  3062. d%=l%-24
  3063. A(_U%!72)
  3064. _U%!72=0
  3065. _U%!72=
  3066. H(_U%!72,-24)
  3067. a%=g%+d%
  3068. -(a%!0=0:a%!4=0:a%!8=0:a%!12=0:a%!16=0
  3069. A(a%!20):a%!20=0
  3070. mB(c%,h%)
  3071. d%,a%,l%,g%,b%
  3072. g%=_U%!104
  3073. F(c%,h%,_U%+104,16,
  3074. d%>=0
  3075. h%=-1
  3076. G(_U%!104)-8
  3077. d%=l%-16
  3078. JA%=g%!12
  3079. b%=JA%!12
  3080. A(b%!12)
  3081. A(b%!16)
  3082. A(b%)
  3083. A(_U%!104)
  3084. _U%!104=0
  3085. _U%!104=
  3086. H(_U%!104,-16)
  3087. a%=g%+d%
  3088. a%!0=0:a%!4=0:a%!8=0
  3089. JA%=a%!12
  3090. A(JA%!12)
  3091. A(JA%!16)
  3092. A(JA%)
  3093. nB(c%,h%)
  3094. d%,a%,l%,g%,b%,yE%
  3095. g%=_U%!332
  3096. O(c%,h%,_U%+332,32,
  3097. d%>=0
  3098. h%=-1
  3099. l%=!g%
  3100. d%=l%-32
  3101. A(g%+d%+24)
  3102. A(_U%!332)
  3103. _U%!332=0
  3104. _U%!332=
  3105. H(_U%!332,-32)
  3106. g%=_U%!332
  3107. !g%-=32
  3108. a%=g%+d%
  3109. a%!0=0:a%!4=0
  3110. yE%=a%+24
  3111. A(yE%)
  3112.